From b8726cff3ffbac8304ea84cb0420cf2b35df3a1a Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 30 Apr 2014 18:59:11 +0100 Subject: [PATCH] mkaptsrc: Use `local' for tracking paintedness of tags. Apparently it works for arbitrary lvalues, so that's good. --- mkaptsrc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/mkaptsrc b/mkaptsrc index 4d32d95..102d598 100755 --- a/mkaptsrc +++ b/mkaptsrc @@ -112,9 +112,8 @@ sub cset_lookup (\@$$;$) { last CSET if defined $val; } if (defined $val) { - $PAINT{$tag} = 1; + local $PAINT{$tag} = 1; my $exp = cset_expand @$cset, $ix, $val; - $PAINT{$tag} = 0; return $exp; } elsif ($mustp) { fail "variable `$tag\[$ix]' undefined"; } else { return undef; } -- 2.11.0