places output

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 2b068194b3c74a32bd7bc6c412a13ecc50ec8940..1e86ef166a34ab71b188c7fc7f570020a2700612 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -75,7 +75,9 @@ sub places ($) {
 END
   my @line_poses;
 
-  o <<END;
+  my $o = '';
+
+  $o .= <<END;
     gsave
     /Helvetica-Bold findfont 8 scalefont setfont
 END
@@ -97,7 +99,7 @@ END
     $money += 4 * $repi;
     $veeps += 2 * $repi;
 
-    o <<END;
+    $o .= <<END;
 % place $x $y $money $veeps $ruby
 gsave
   $x_pl_zero $y_pl_zero translate
@@ -107,9 +109,11 @@ gsave
 grestore
 END
   }
-  o <<END;
+  $o .= <<END;
     grestore
 END
+
+  $ps_framing .= $o;
 }
 
 sub repis () {