From: Martin Mares <mj@ucw.cz>
Date: Wed, 1 Oct 2008 19:57:17 +0000 (+0200)
Subject: Fixed an escape.
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=3adf7b25ff2a50e07c2f7f3512ba9158bad89e34;p=temple.git

Fixed an escape.
---

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
old mode 100755
new mode 100644
index 41af968..d3f2cc4
--- a/UCW/Temple.pm
+++ b/UCW/Temple.pm
@@ -95,7 +95,7 @@ sub parse_string($) {
 		} elsif ($t =~ /\G\@\[/cgs) {
 			my $x = get_nested(\$t, '\[', '\]');
 			$x =~ s/^\[//;
-			$x =~ s/$\]//;
+			$x =~ s/\$\]//;
 			eval_if_ok($x);
 		} elsif ($t =~ /\G\@(\w+)\(/cgs) {
 			my $func = $1;