summaryrefslogtreecommitdiffstats
path: root/scripts
diff options
context:
space:
mode:
authorPatrick McDermott <patrick.mcdermott@libiquity.com>2019-07-15 00:20:43 (EDT)
committer Patrick McDermott <patrick.mcdermott@libiquity.com>2019-07-15 00:20:43 (EDT)
commit399e34880a88caf1710878067d7a316aa4d67279 (patch)
treea19229c27834256326cea83494d212ac9b3f8bee /scripts
parent323a860325a9768737683ac7c594f8e95bb76e70 (diff)
scripts/gen-mplus-patch.pl: Fix odd Perl error
Can't use string ("mplus-1m-regular") as an ARRAY ref while "strict refs" in use at scripts/gen-mplus-patch.pl line 196.
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/gen-mplus-patch.pl7
1 files changed, 4 insertions, 3 deletions
diff --git a/scripts/gen-mplus-patch.pl b/scripts/gen-mplus-patch.pl
index ffdd263..33e452a 100755
--- a/scripts/gen-mplus-patch.pl
+++ b/scripts/gen-mplus-patch.pl
@@ -216,13 +216,14 @@ sub conv_fonts
my $weight;
my $width;
my $height;
+ my $font_name;
my $new;
$patch = '';
foreach my $font (@FONTS) { ($face, $weight, $width, $height) = @$font;
- $font = "mplus-$face-$weight";
- $new = `otf2bdf -p $width -r 72 $mplus_dir/$font.ttf | \\
- $bdf2fbcon -o - -n $font -p 2 -`;
+ $font_name = "mplus-$face-$weight";
+ $new = `otf2bdf -p $width -r 72 $mplus_dir/$font_name.ttf | \\
+ $bdf2fbcon -o - -n $font_name -p 2 -`;
$patch .= make_patch("lib/fonts/font_mplus_${face}_${weight}_" .
"${width}x${height}.c", '', $new);
}