gbranden pushed a commit to branch master
in repository groff.
commit 4c0f790c665e00d335964be8a9fdcd4bf7123d3d
Author: G. Branden Robinson <[email protected]>
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 <[email protected]>
+
+ * 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 <[email protected]>
[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;
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
