Fixed an escape.

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
old mode 100755 (executable)
new mode 100644 (file)
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;