[groff] 23/39: [glilypond]: Alter version reporting format.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit bba9135c6fcaf9f67e7cb462e1fe8a248386c083
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sun Oct 9 07:09:27 2022 -0500

    [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.
---
 contrib/glilypond/ChangeLog    |  6 ++++++
 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,3 +1,9 @@
+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.
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()