replaced 'slash' with Filename.dir_sep

2014-10-29 17:29:27 +00:00 · 2014-10-29 17:29:27 +00:00 · b35163b4b3
parent f9213ad019
commit b35163b4b3
1 changed files with 1 additions and 2 deletions
--- 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;