From 1f11e5180a7eb8733eaafa6a6b79cc9f80f24e9d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 19:54:10 +0000
Subject: [PATCH] break out $ps_framing nfc

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 pumpkin-books.ps.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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) = @_;
-- 
2.30.2