gbranden pushed a commit to branch master
in repository groff.
commit 0e7cfd25f30f1f76dc60d12499eba8d6ccffbeb0
Author: G. Branden Robinson <[email protected]>
AuthorDate: Thu Jan 4 02:03:50 2024 -0600
[grog]: Trivially refactor; simplify code.
* src/utils/grog/grog.pl: Trivially refactor; simplify code.
---
ChangeLog | 4 ++++
src/utils/grog/grog.pl | 6 +-----
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index d57861e8c..afdc5ed7e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2024-01-04 G. Branden Robinson <[email protected]>
+
+ * src/utils/grog/grog.pl: Trivially refactor; simplify code.
+
2024-01-03 G. Branden Robinson <[email protected]>
* src/devices/gropdf/gropdf.pl: Report only "basename" of
diff --git a/src/utils/grog/grog.pl b/src/utils/grog/grog.pl
index 8c6e98336..c70eb16d1 100644
--- a/src/utils/grog/grog.pl
+++ b/src/utils/grog/grog.pl
@@ -52,11 +52,7 @@ my %preprocessor_for_macro = (
'pinyin', 'gpinyin',
);
-my $program_name = $0;
-{
- my ($v, $d, $f) = File::Spec->splitpath($program_name);
- $program_name = $f;
-}
+(undef, undef, my $program_name) = File::Spec->splitpath($0);
my %user_macro;
my %score = ();
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
