[groff] 03/18: [grog]: Trivially refactor; simplify code.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 0e7cfd25f30f1f76dc60d12499eba8d6ccffbeb0
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
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 <g.branden.robinson@gmail.com>
+
+       * src/utils/grog/grog.pl: Trivially refactor; simplify code.
+
 2024-01-03  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * 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 = ();