From f2a8a44e7954bfb25ff11dfcde1eede3e7d04db3 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 12 Jan 2024 12:55:21 +0000
Subject: [PATCH] redirect stderr

---
 cpdfimage.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfimage.ml b/cpdfimage.ml
index 6c4b2a0..b08453f 100644
--- a/cpdfimage.ml
+++ b/cpdfimage.ml
@@ -754,7 +754,7 @@ let preprocess_jbig2_lossy ~path_to_jbig2enc ~length_threshold ~pixel_threshold
    if length !objnum_name_pairs = 0 then () else
    let jbig2out = Filename.temp_file "cpdf" "jbig2" in
    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
    in
    if retcode = 0 then