diff options
| author | G. Branden Robinson <g.branden.robinson@gmail.com> | 2022-06-02 21:36:54 -0500 |
|---|---|---|
| committer | G. Branden Robinson <g.branden.robinson@gmail.com> | 2022-06-03 04:01:12 -0500 |
| commit | 468f7c8fd0570890282a664db5a0f59f90fea670 (patch) | |
| tree | 3cc377be8d575bb785b30044a19fcf8805111f31 /font | |
| parent | 19f7a3562615f96a3ad8722d8083c73fa6988b75 (diff) | |
| download | groff-git-468f7c8fd0570890282a664db5a0f59f90fea670.tar.gz | |
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.
Diffstat (limited to 'font')
| -rw-r--r-- | font/devpdf/util/BuildFoundries.pl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/font/devpdf/util/BuildFoundries.pl b/font/devpdf/util/BuildFoundries.pl index 9c9080e9e..d1df440bb 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 { |