[groff] 01/18: [gropdf]: Fix Savannah #65110 ("basename").

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 4c0f790c665e00d335964be8a9fdcd4bf7123d3d
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Jan 3 14:00:32 2024 -0600

    [gropdf]: Fix Savannah #65110 ("basename").
    
    * src/devices/gropdf/gropdf.pl: Report only "basename" of program name
      in diagnostic messages.
    
    Fixes <https://savannah.gnu.org/bugs/?65110>.  Thanks to Dave Kemper for
    the code review.
---
 ChangeLog                    | 8 ++++++++
 src/devices/gropdf/gropdf.pl | 4 +++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 909ce52c0..d57861e8c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2024-01-03  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * src/devices/gropdf/gropdf.pl: Report only "basename" of
+       program name in diagnostic messages.
+
+       Fixes <https://savannah.gnu.org/bugs/?65110>.  Thanks to Dave
+       Kemper for the code review.
+
 2024-01-03  Deri James  <deri@chuzzlewit.myzen.co.uk>
 
        [gropdf]: Add `pdfpagenumbering` macro.
diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index 224f0e4b7..a78acc54c 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -26,6 +26,7 @@ require 5.8.0;
 use Getopt::Long qw(:config bundling);
 use Encode qw(encode);
 use POSIX qw(mktime);
+use File::Spec qw(splitpath);
 
 use constant
 {
@@ -216,7 +217,8 @@ my %StdEnc=(
     251 => 'ss',
 );
 
-my $prog=$0;
+(undef,undef,my $prog)=File::Spec->splitpath($0);
+
 unshift(@ARGV,split(' ',$ENV{GROPDF_OPTIONS})) if exists($ENV{GROPDF_OPTIONS});
 
 my $gotzlib=0;