From d82cb026a973ad5c790c9464d1ae6ac5587b03e1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 14 Feb 2016 23:17:29 +0000
Subject: [PATCH] commitid: introduce $polys local in parsefont() (nfc)

---
 commitid.scad.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/commitid.scad.pl b/commitid.scad.pl
index f6c925a..e75143b 100755
--- 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} }) {
-- 
2.30.2