redirect stderr
This commit is contained in:
parent
6f5c20e409
commit
f2a8a44e79
|
@ -754,7 +754,7 @@ let preprocess_jbig2_lossy ~path_to_jbig2enc ~length_threshold ~pixel_threshold
|
||||||
if length !objnum_name_pairs = 0 then () else
|
if length !objnum_name_pairs = 0 then () else
|
||||||
let jbig2out = Filename.temp_file "cpdf" "jbig2" in
|
let jbig2out = Filename.temp_file "cpdf" "jbig2" in
|
||||||
let retcode =
|
let retcode =
|
||||||
let command = Filename.quote_command path_to_jbig2enc (["-p"; "-s"; "-b"; jbig2out] @ map snd !objnum_name_pairs) in
|
let command = Filename.quote_command path_to_jbig2enc ~stderr:Filename.null (["-p"; "-s"; "-b"; jbig2out] @ map snd !objnum_name_pairs) in
|
||||||
(*Printf.printf "%S\n" command;*) Sys.command command
|
(*Printf.printf "%S\n" command;*) Sys.command command
|
||||||
in
|
in
|
||||||
if retcode = 0 then
|
if retcode = 0 then
|
||||||
|
|
Loading…
Reference in New Issue