[groff] 10/10: [grog]: Report program name in fatal diagnostics.

[G. Branden Robinson]

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;
 
 
 #############