From 399e34880a88caf1710878067d7a316aa4d67279 Mon Sep 17 00:00:00 2001
From: Patrick McDermott <patrick.mcdermott@libiquity.com>
Date: Mon, 15 Jul 2019 00:20:43 -0400
Subject: 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.
---
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);
 	}
--
cgit v0.9.1