X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=UCW%2FTemple.pm;h=7224ac4e717c637bb81f3a05b61ddb60b82de8f3;hb=c9efa44aa3b2ac25e2611a8a10b8259642c2bd85;hp=ff7141072483e62abb191fdf2c062e2d432f2387;hpb=61608a824f836d5ec60bb98388edda24417184d6;p=temple.git

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