From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 19:54:10 +0000 (+0000)
Subject: break out $ps_framing nfc
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=1f11e5180a7eb8733eaafa6a6b79cc9f80f24e9d;p=quacks.git

break out $ps_framing nfc

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index d911cf2..2f56ec4 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -690,7 +690,8 @@ sub arrow_any ($) { <<END;
 END
 };
 
-print <<END or die $!;
+
+our $ps_framing = <<END;
 %!
 
 $page_pre
@@ -728,6 +729,7 @@ $page_pre
 } def
 
 END
+print $ps_framing or die $!;
 
 sub def_image ($$) {
   my ($ncomps, $name) = @_;