From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 30 Apr 2014 17:59:11 +0000 (+0100)
Subject: mkaptsrc: Use `local' for tracking paintedness of tags.
X-Git-Url: https://git.distorted.org.uk/~mdw/distorted-bits/commitdiff_plain

mkaptsrc: Use `local' for tracking paintedness of tags.

Apparently it works for arbitrary lvalues, so that's good.
---

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; }