From b35163b4b30ab3b765245c7c9d1f6d6a79eab77f Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 29 Oct 2014 17:29:27 +0000
Subject: [PATCH] replaced 'slash' with Filename.dir_sep

---
 cpdfcommand.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 9d42eec..6f7ca58 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1088,9 +1088,8 @@ let set_input s =
 
 let set_input_dir s =
   let names = sort compare (leafnames_of_dir s) in
-    (* We don't need to set all_inputs here, since pdftk doesn't used -idir *)
     args.inputs <-
-      (rev (map (fun n -> (InFile (s ^ slash ^ n), "all", Pdfmerge.DNR, "", "")) names)) @ args.inputs
+      (rev (map (fun n -> (InFile (s ^ Filename.dir_sep ^ n), "all", Pdfmerge.DNR, "", "")) names)) @ args.inputs
 
 let setdebug () =
   set Pdfread.read_debug;