diff options
Diffstat (limited to 'contrib/glilypond')
| -rw-r--r-- | contrib/glilypond/ChangeLog | 6 | ||||
| -rwxr-xr-x | contrib/glilypond/glilypond.pl | 13 |
2 files changed, 11 insertions, 8 deletions
diff --git a/contrib/glilypond/ChangeLog b/contrib/glilypond/ChangeLog index 2c60c3634..c21861006 100644 --- a/contrib/glilypond/ChangeLog +++ b/contrib/glilypond/ChangeLog @@ -1,5 +1,11 @@ 2022-10-19 G. Branden Robinson <g.branden.robinson@gmail.com> + * glilypond.pl (version): Report version information in format + recommended by GNU coding standards. Bump micro version number + to reflect this and the restructuring immediately previous. + +2022-10-19 G. Branden Robinson <g.branden.robinson@gmail.com> + Make glilypond script stand alone. * args.pl: diff --git a/contrib/glilypond/glilypond.pl b/contrib/glilypond/glilypond.pl index daf3bdd1d..0677c8f5a 100755 --- a/contrib/glilypond/glilypond.pl +++ b/contrib/glilypond/glilypond.pl @@ -24,7 +24,7 @@ use Data::Dumper; our $Legalese; { - use constant VERSION => 'v1.3.1'; # version of glilypond + use constant VERSION => '1.3.2'; # version of glilypond ### This constant 'LICENSE' is the license for this file 'GPL' >= 3 use constant LICENSE => q* @@ -541,17 +541,14 @@ The directories set are created when they do not exist. sub version { # for '--version' our ( $Globals, $Legalese, $stdout, $Args ); - my $end; + my $groff_version = ''; if ( $Globals->{'groff_version'} ) { - $end = " version $Globals->{'groff_version'}"; - } else { - $end = '.'; + $groff_version = "(groff $Globals->{'groff_version'}) "; } my $output = EMPTYSTRING; - $output = "###### version:\n" if ( $Args->{'verbose'} ); - $output .= "'" . $Globals->{'prog'} . "' version '" . - $Legalese->{'version'} . "' is part of 'GNU groff'" . $end; + $output = "$Globals->{'prog'} ${groff_version}version " + . $Legalese->{'version'}; $stdout->print($output); } # end sub version() |