From db624d8a8a7464ef29e929c96b8af9b0db9d48d4 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Thu, 27 Jan 2022 21:41:12 -0500
Subject: [PATCH] Better error messages.

---
 rem2pdf/bin/rem2pdf       | 7 +++++--
 rem2pdf/lib/Remind/PDF.pm | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/rem2pdf/bin/rem2pdf b/rem2pdf/bin/rem2pdf
index 2015c3ea..342bffd0 100755
--- a/rem2pdf/bin/rem2pdf
+++ b/rem2pdf/bin/rem2pdf
@@ -102,10 +102,13 @@ if ($settings->{landscape}) {
         $settings->{height} = $tmp;
 }
 
+my $me = $0;
+$me =~ s/^.*\///;
+
 # Don't read from a terminal
 if (-t STDIN) {
         print STDERR "I can't read data from a terminal.  Please run like this:\n";
-        print STDERR "  remind -pp [options] filename | $0 [options] > out.pdf\n";
+        print STDERR "  remind -pp [options] filename | $me [options] > out.pdf\n";
         exit(1);
 }
 
@@ -135,7 +138,7 @@ while(1) {
         if (!$obj) {
                 if (!$done_one) {
                         $errored_out = 1;
-                        print STDERR "$err\n";
+                        print STDERR "$me: $err\n";
                         exit(1);
                 }
                 last;
diff --git a/rem2pdf/lib/Remind/PDF.pm b/rem2pdf/lib/Remind/PDF.pm
index e43b47eb..efe85e97 100644
--- a/rem2pdf/lib/Remind/PDF.pm
+++ b/rem2pdf/lib/Remind/PDF.pm
@@ -100,7 +100,7 @@ sub read_one_month
 
         # Old-style "remind -p"
         # TODO: Eventually support this?
-        return (undef, "Format not supported: Use -pp or -ppp, not plain -p");
+        return (undef, "Format not supported: Use 'remind -pp', not plain -p");
 }
 
 sub read_one_month_pp