UCW::Temple: @@ does not creep into if'ed out blocks

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
index ff7141072483e62abb191fdf2c062e2d432f2387..7224ac4e717c637bb81f3a05b61ddb60b82de8f3 100644 (file)
--- a/UCW/Temple.pm
+++ b/UCW/Temple.pm
@@ -100,7 +100,7 @@ sub parse_string($) {
                } elsif ($t =~ /\G\@#[^\n]*\n/cgs) {
                        # a comment, which is ignored
                } elsif ($t =~ /\G\@\@/cgs) {
                } elsif ($t =~ /\G\@#[^\n]*\n/cgs) {
                        # a comment, which is ignored
                } elsif ($t =~ /\G\@\@/cgs) {

-                       out "\@";
+                       out "\@" if $cond[0] > 0;

                } elsif ($t =~ /\G\@{/cgs) {
                        my $x = get_nested(\$t, "{", "}");
                        out eval_if_ok($x);
                } elsif ($t =~ /\G\@{/cgs) {
                        my $x = get_nested(\$t, "{", "}");
                        out eval_if_ok($x);