[PATCH v2] [bug #65110] [gropdf] should not include full argv[0] in diagnostic messages

[G. Branden Robinson]

Thanks to Dave for the feedback.

diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index 224f0e4b7..b301673a6 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;

signature.asc
Description: PGP signature