From e3f96316562cf19e1c646c46a8977f4d248a1ec3 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 18 Sep 2024 15:15:07 +0100
Subject: [PATCH] Fix double document

---
 cpdfdraw.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index c56c3bc..d4f68dc 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -425,8 +425,8 @@ let rec ops_of_drawop struct_tree dryrun pdf endpage filename bates batespad num
         if not dryrun then structdata := StDataMCID (s, m, None)::!structdata;
         [Pdfops.Op_BDC (s, Pdf.Dictionary ["/MCID", Pdf.Integer m])]
   | EndTag -> [Pdfops.Op_EMC]
-  | STag s -> structdata =| StDataBeginTree s; []
-  | EndSTag -> structdata =| StDataEndTree; []
+  | STag s -> if not dryrun then structdata =| StDataBeginTree s; []
+  | EndSTag -> if not dryrun then structdata =| StDataEndTree; []
   | BeginArtifact -> [Pdfops.Op_BMC "/BeginArtifact"]
   | EndArtifact -> [Pdfops.Op_BMC "/EndArtifact"]