From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 16:53:23 +0000 (+0000)
Subject: make it possible to align text upwards
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=722931ae9f03b5252350563b360eb3e613974f01;p=quacks.git

make it possible to align text upwards
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 58ba10f..c9e38ad 100755
--- 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];