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 d911cf24c4feaaee9c0e1a8f8b91c7979946550c..2f56ec4a08a4bf28ba808ad1f1e5b4cd84ed8629 100755 (executable)
--- 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) = @_;