From: Martin Mares <mj@ucw.cz>
Date: Fri, 11 Feb 2011 15:12:39 +0000 (+0100)
Subject: UCW::Temple: @@ does not creep into if'ed out blocks
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=c9efa44aa3b2ac25e2611a8a10b8259642c2bd85;p=temple.git

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

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
index ff71410..7224ac4 100644
--- 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) {
-			out "\@";
+			out "\@" if $cond[0] > 0;
 		} elsif ($t =~ /\G\@{/cgs) {
 			my $x = get_nested(\$t, "{", "}");
 			out eval_if_ok($x);