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

[distorted-bits] / mkaptsrc

diff --git a/mkaptsrc b/mkaptsrc
index 4d32d95713d4505261e87635e412463c742536f8..102d5981e38eab3c48d1ac09a0cd8dc981ea04af 100755 (executable)
--- a/mkaptsrc
+++ b/mkaptsrc
@@ -112,9 +112,8 @@ sub cset_lookup (\@$$;$) {
     last CSET if defined $val;
   }
   if (defined $val) {
     last CSET if defined $val;
   }
   if (defined $val) {

-    $PAINT{$tag} = 1;
+    local $PAINT{$tag} = 1;

     my $exp = cset_expand @$cset, $ix, $val;
     my $exp = cset_expand @$cset, $ix, $val;

-    $PAINT{$tag} = 0;

     return $exp;
   } elsif ($mustp) { fail "variable `$tag\[$ix]' undefined"; }
   else { return undef; }
     return $exp;
   } elsif ($mustp) { fail "variable `$tag\[$ix]' undefined"; }
   else { return undef; }