[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[groff] 02/18: [glilypond]: Trivially refactor; simplify code.
From: |
G. Branden Robinson |
Subject: |
[groff] 02/18: [glilypond]: Trivially refactor; simplify code. |
Date: |
Fri, 5 Jan 2024 22:25:17 -0500 (EST) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [groff] 02/18: [glilypond]: Trivially refactor; simplify code.,
G. Branden Robinson <=