From 31588000f859b1f5131399d1966af156ff350b11 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 30 Sep 2021 15:02:15 +0100
Subject: [PATCH] Prevent new missing mediabox warning triggering in
 -image-resolution

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

diff --git a/cpdf.ml b/cpdf.ml
index 463be48..f398288 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -4422,7 +4422,7 @@ let rec image_resolution_page pdf page pagenum dpi (images : (int * string * xob
                         in
                           let page =
                             {Pdfpage.content = [content];
-                             Pdfpage.mediabox = Pdf.Null;
+                             Pdfpage.mediabox = Pdfpage.rectangle_of_paper Pdfpaper.a4;
                              Pdfpage.resources = resources;
                              Pdfpage.rotate = Pdfpage.Rotate0;
                              Pdfpage.rest = Pdf.Dictionary []}