mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-02-16 11:50:54 +01:00
replaced 'slash' with Filename.dir_sep
This commit is contained in:
parent
f9213ad019
commit
b35163b4b3
@ -1088,9 +1088,8 @@ let set_input s =
|
|||||||
|
|
||||||
let set_input_dir s =
|
let set_input_dir s =
|
||||||
let names = sort compare (leafnames_of_dir s) in
|
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 <-
|
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 () =
|
let setdebug () =
|
||||||
set Pdfread.read_debug;
|
set Pdfread.read_debug;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user