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

[G. Branden Robinson]

Hi Deri,

I tried 3 times with 2 different browsers to update the ticket, but
Savannah has fallen over.

https://savannah.nongnu.org/support/?111000

I have a patch for gropdf.

diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index 224f0e4b7..a55de5569 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
 {
@@ -217,6 +218,10 @@ my %StdEnc=(
 );

 my $prog=$0;
+{
+  my ($v, $d, $f) = File::Spec->splitpath($prog);
+  $prog = $f;
+}
 unshift(@ARGV,split(' ',$ENV{GROPDF_OPTIONS})) if exists($ENV{GROPDF_OPTIONS});

 my $gotzlib=0;

Ok to push?

Regards,
Branden

signature.asc
Description: PGP signature