From c9efa44aa3b2ac25e2611a8a10b8259642c2bd85 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Fri, 11 Feb 2011 16:12:39 +0100
Subject: [PATCH] UCW::Temple: @@ does not creep into if'ed out blocks

---
 UCW/Temple.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.39.5