diff options
| author | G. Branden Robinson <g.branden.robinson@gmail.com> | 2022-07-13 01:53:30 -0500 |
|---|---|---|
| committer | G. Branden Robinson <g.branden.robinson@gmail.com> | 2022-07-14 04:24:38 -0500 |
| commit | bbdc314682a74c11b9dd90b8ff54ec160b7e59d9 (patch) | |
| tree | 8f9d27b8a5da8a3ba4e67f74bd149a1b92f33a92 /font | |
| parent | 02ca0869b5cd56ef61326e9f3ca47fedb6d591e2 (diff) | |
| download | groff-git-bbdc314682a74c11b9dd90b8ff54ec160b7e59d9.tar.gz | |
[build]: Resolve Perl warning when no URW fonts.
* font/devpdf/util/BuildFoundries.pl (LoadFoundry): Verify that
`$foundrypath->[$j]` is defined before operating on it.
Use of uninitialized value in pattern match (m//) at
.../font/devpdf/util/BuildFoundries line 99, <F> line 23.
Diffstat (limited to 'font')
| -rw-r--r-- | font/devpdf/util/BuildFoundries.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/font/devpdf/util/BuildFoundries.pl b/font/devpdf/util/BuildFoundries.pl index 2ba5a7de2..195ed167e 100644 --- a/font/devpdf/util/BuildFoundries.pl +++ b/font/devpdf/util/BuildFoundries.pl @@ -95,7 +95,8 @@ sub LoadFoundry push(@{$foundrypath},(split(':',$r[2])),@{$devps}); foreach my $j (0..$#{$foundrypath}) { - if ($foundrypath->[$j]=~m'\s*\(gs\)') + if (defined($foundrypath->[$j]) + && $foundrypath->[$j]=~m'\s*\(gs\)') { splice(@{$foundrypath},$j,1,@{$GSpath}); } |