[groff] 12/15: font/devpdf/util/BuildFoundries.pl: Refactor.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 468f7c8fd0570890282a664db5a0f59f90fea670
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu Jun 2 21:36:54 2022 -0500

    font/devpdf/util/BuildFoundries.pl: Refactor.
    
    * font/devpdf/util/BuildFoundries.pl: Trivially refactor.  Drop unused
      hash `foundry`.  Drop scalar `warn` that was set and updated but never
      tested.
---
 ChangeLog                          |  6 ++++++
 font/devpdf/util/BuildFoundries.pl | 10 ++++------
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 08753363..7439a9b1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-06-02  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * font/devpdf/util/BuildFoundries.pl: Trivially refactor.  Drop
+       unused hash `foundry`.  Drop scalar `warn` that was set and
+       updated but never tested.
+
 2022-06-02  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * font/devpdf/util/BuildFoundries.pl: Alter script to write to
diff --git a/font/devpdf/util/BuildFoundries.pl 
b/font/devpdf/util/BuildFoundries.pl
index 9c9080e9..d1df440b 100644
--- a/font/devpdf/util/BuildFoundries.pl
+++ b/font/devpdf/util/BuildFoundries.pl
@@ -1,8 +1,8 @@
 #!/usr/bin/perl -w
 #
-#   BuildFoundries   : Given a Foundry file generate groff and download files
-#   Deri James       : Monday 07 Feb 2011
-
+# BuildFoundries: Given a Foundry file, generate groff font description
+# files and a "download" file so gropdf can embed fonts in PDF output.
+#
 # Copyright (C) 2011-2020 Free Software Foundation, Inc.
 #      Written by Deri James <deri@chuzzlewit.myzen.co.uk>
 #
@@ -33,9 +33,8 @@ GetOptions("check" => \$check, "dirURW=s" => \$dirURW);
 my $where=shift||'';
 my $devps=shift||'../devps';
 chdir $where if $where ne '';
-my (%foundry,%flg,@downloadpreamble,%download);
+my (%flg,@downloadpreamble,%download);
 my $GSpath=FindGSpath();
-my $warn=0;
 my $lct=0;
 my $foundry='';        # the default foundry
 my $notFoundFont=0;
@@ -454,7 +453,6 @@ sub Notice {
 sub Warn {
     my $msg=shift;
     Msg("warning: line $lct: $msg");
-    $warn=1;
 }
 
 sub Die {