From 722931ae9f03b5252350563b360eb3e613974f01 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 16:53:23 +0000
Subject: [PATCH] make it possible to align text upwards

---
 pumpkin-books.ps.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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];
-- 
2.30.2