[groff] 02/18: [glilypond]: Trivially refactor; simplify code.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 18a71ee7cab0fdce0b73a16738e173539c388805
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu Jan 4 01:57:18 2024 -0600

    [glilypond]: Trivially refactor; simplify code.
    
    * contrib/glilypond/glilypond.pl (BEGIN): Trivially refactor; simplify
      code.
---
 contrib/glilypond/ChangeLog    | 4 ++++
 contrib/glilypond/glilypond.pl | 9 +++------
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/contrib/glilypond/ChangeLog b/contrib/glilypond/ChangeLog
index 3eb826848..ca652d5b8 100644
--- a/contrib/glilypond/ChangeLog
+++ b/contrib/glilypond/ChangeLog
@@ -1,3 +1,7 @@
+2024-01-04  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * glilypond.pl (BEGIN): Trivially refactor; simplify code.
+
 2023-07-17  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * glilypond.pl: Stop endorsing shebang line space myth.  See
diff --git a/contrib/glilypond/glilypond.pl b/contrib/glilypond/glilypond.pl
index 1f14397db..ed70424fe 100755
--- a/contrib/glilypond/glilypond.pl
+++ b/contrib/glilypond/glilypond.pl
@@ -96,12 +96,9 @@ BEGIN {
      'prog' => EMPTYSTRING,
     };
 
-  {
-    ( my $volume, my $directory, $Globals->{'prog'} ) =
-      File::Spec->splitpath($0);
-    # $Globals->{'prog'} is 'glilypond' when installed,
-    # 'glilypond.pl' when not
-  }
+  ( undef, undef, $Globals->{'prog'} ) = File::Spec->splitpath($0);
+  # $Globals->{'prog'} is 'glilypond' when installed,
+  # 'glilypond.pl' when not
 
 
   $\ = "\n";   # adds newline at each print