gbranden pushed a commit to branch master
in repository groff.
commit 18a71ee7cab0fdce0b73a16738e173539c388805
Author: G. Branden Robinson <[email protected]>
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 <[email protected]>
+
+ * glilypond.pl (BEGIN): Trivially refactor; simplify code.
+
2023-07-17 G. Branden Robinson <[email protected]>
* 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
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
