[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[groff] 10/10: [grog]: Report program name in fatal diagnostics.
From: |
G. Branden Robinson |
Subject: |
[groff] 10/10: [grog]: Report program name in fatal diagnostics. |
Date: |
Thu, 21 Jan 2021 02:08:00 -0500 (EST) |
gbranden pushed a commit to branch master
in repository groff.
commit 546748d60c95886e408c07083d60cc06516aed5c
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Jan 20 18:23:20 2021 +1100
[grog]: Report program name in fatal diagnostics.
* src/roff/grog/grog.pl: Report program name in fatal error diagnostics.
Also drop sentence-ending punctuation since Perl supplies additional
information.
Continues the long process of fixing Savannah #52463.
---
ChangeLog | 8 ++++++++
src/roff/grog/grog.pl | 7 ++++---
2 files changed, 12 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index ca05a7a..e9c00b1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2021-01-20 G. Branden Robinson <g.branden.robinson@gmail.com>
+
+ * src/roff/grog/grog.pl: Report program name in fatal error
+ diagnostics. Also drop sentence-ending punctuation since Perl
+ supplies additional information.
+
+ Continues the long process of fixing Savannah #52463.
+
2021-01-19 G. Branden Robinson <g.branden.robinson@gmail.com>
* tmac/an-old.tmac (RE): Style-warn if macro arguments are out
diff --git a/src/roff/grog/grog.pl b/src/roff/grog/grog.pl
index aa7ea2c..f66fc65 100644
--- a/src/roff/grog/grog.pl
+++ b/src/roff/grog/grog.pl
@@ -52,12 +52,12 @@ if ($before_make) { # before installation
$grog_dir = '.';
my $top = $grog_source_dir . '/../../../';
open FILE, '<', $top . 'VERSION' ||
- die 'Could not open top file VERSION.';
+ die 'grog: could not open file "VERSION"';
my $version = <FILE>;
chomp $version;
close FILE;
open FILE, '<', $top . 'REVISION' ||
- die 'Could not open top file REVISION.';
+ die 'grog: could not open file "REVISION"';
my $revision = <FILE>;
chomp $revision;
$at_at{'GROFF_VERSION'} = $version . '.' . $revision;
@@ -67,7 +67,8 @@ if ($before_make) { # before installation
$grog_dir = '@grog_dir@';
} # before make
-die "$grog_dir is not an existing directory;" unless -d $grog_dir;
+die 'grog: "' . $grog_dir . '" does not exist or is not a directory'
+ unless -d $grog_dir;
#############
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [groff] 10/10: [grog]: Report program name in fatal diagnostics.,
G. Branden Robinson <=