make it possible to align text upwards

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 58ba10f2636daed5ad1beab8b59e4d5820060371..c9e38ada3402213e763eb2d0a7f240170262d2b1 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -56,7 +56,7 @@ sub exposition ($) {
   my $o = <<END;
     /Times-Roman findfont $fontsz scalefont setfont $black
 END
-  $text =~ s/\s+$//;
+  chomp $text;
   my @lines = split /\n/, $text;
   foreach my $y (0..$#lines) {
     my $l = $lines[$y];