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

[distorted-bits] / mkaptsrc

diff --git a/mkaptsrc b/mkaptsrc
index 4d32d95..102d598 100755 (executable)
--- 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; }