The previous fix was wrong.

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
index d3f2cc414e0b580d60efd3f063decf423336becc..32526d7c19157c569b929bf029cd7caace4ad082 100644 (file)
--- 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;