[groff] 24/37: [afmtodit]: Trivially refactor; apply DRY.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 0d451902c070e1224fa5db72f8328f8f5e021385
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu Mar 10 07:48:28 2022 +1100

    [afmtodit]: Trivially refactor; apply DRY.
    
    * src/utils/afmtodit/afmtodit.pl: Trivially refactor.  Store the
      program's version string in scalar `afmtodit_version` and use that in
      the usage message and comment embedded in the output.
---
 ChangeLog                      | 6 ++++++
 src/utils/afmtodit/afmtodit.pl | 7 ++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 951c6f9e..8a1128bf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-03-09  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * src/utils/afmtodit/afmtodit.pl: Trivially refactor.  Store the
+       program's version string in scalar `afmtodit_version` and use
+       that in the usage message and comment embedded in the output.
+
 2022-03-09  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * src/utils/afmtodit/afmtodit.pl: Fix code style nits.  Migrate
diff --git a/src/utils/afmtodit/afmtodit.pl b/src/utils/afmtodit/afmtodit.pl
index 22e586e5..0772ea44 100644
--- a/src/utils/afmtodit/afmtodit.pl
+++ b/src/utils/afmtodit/afmtodit.pl
@@ -34,8 +34,10 @@ getopts('a:cd:e:f:i:kmno:svx');
 our ($opt_a, $opt_c, $opt_d, $opt_e, $opt_f, $opt_i, $opt_k,
      $opt_m, $opt_n, $opt_o, $opt_s, $opt_v, $opt_x);
 
+my $afmtodit_version = "GNU afmtodit (groff) version @VERSION@\n";
+
 if ($opt_v) {
-    print "GNU afmtodit (groff) version @VERSION@\n";
+    print "$afmtodit_version";
     exit 0;
 }
 
@@ -422,8 +424,7 @@ foreach my $lig (sort keys %default_ligatures) {
 open(FONT, ">$outfile") || die "$prog: can't open '$outfile' for output: $!\n";
 select(FONT);
 
-print("# This file was generated with " .
-      "GNU afmtodit (groff) version @VERSION@\n");
+print("# This file was generated with $afmtodit_version.\n");
 print("#\n");
 print("#   $fullname\n") if defined $fullname;
 print("#   $version\n") if defined $version;