diff options
author | G. Branden Robinson <g.branden.robinson@gmail.com> | 2022-10-09 07:09:27 -0500 |
---|---|---|
committer | G. Branden Robinson <g.branden.robinson@gmail.com> | 2022-10-09 22:33:06 -0500 |
commit | bba9135c6fcaf9f67e7cb462e1fe8a248386c083 (patch) | |
tree | 9c4684ac9869e9902a1a766f3e944cab922837be /contrib/glilypond | |
parent | 427a5cb1fc6761a0fd6e338d23732522b02804b0 (diff) | |
download | groff-git-bba9135c6fcaf9f67e7cb462e1fe8a248386c083.tar.gz |
[glilypond]: Alter version reporting format.
* contrib/glilypong/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.
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() |