From: Martin Mares <mj@ucw.cz>
Date: Mon, 4 Apr 2016 22:12:08 +0000 (+0200)
Subject: @(...) follows conditions properly
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=21e6ae4b22b305927847737f5756f5172748a94a;p=temple.git

@(...) follows conditions properly
---

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
index 5fc82d0..45c0ca3 100644
--- a/UCW/Temple.pm
+++ b/UCW/Temple.pm
@@ -187,7 +187,7 @@ sub parse_string($$) {
 			my $x = get_nested(\$t, '\(', '\)');
 			$x =~ s/^\(//;
 			$x =~ s/\)$//;
-			out (defined($arguments->{$x}) ? $arguments->{$x} : "");
+			out (defined($arguments->{$x}) ? $arguments->{$x} : "") if $cond[0] > 0;
 		} elsif ($t =~ /\G\@(\w+)\(/cgs) {
 			my $func = $1;
 			my $args = get_function_args(\$t, '(', ')');