commitid: introduce $polys local in parsefont() (nfc)

[reprap-play.git] / commitid.scad.pl

diff --git a/commitid.scad.pl b/commitid.scad.pl
index f6c925afdee52b7bd2f8d278cc5ec7a0b5e0a034..e75143b46ca91b49697670d54a1ddbd2620d1cd8 100755 (executable)
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -412,9 +412,10 @@ sub parsefont () {
     my $demo = '';
     my $democols = 6;
     foreach my $chr (sort keys %chrpolys) {
+       my $polys = $chrpolys{$chr};
        my $mod = chrmodname $chr;
        p "module $mod () {\n";
-       foreach my $poly (@{ $chrpolys{$chr} }) {
+       foreach my $poly (@$polys) {
            p " polygon([";
            my $delim = "";
            foreach my $pt (@{ $poly->{E} }) {