Escaped curly braces in regexes

Warning "Unescaped left brace in regex is deprecated" added in
Perl 5.22.0 is not triggered anymore.

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
index 99a2d15d610202a17489ce03010e40b02449309b..5fc82d0bea5612c92855adce5b323f808ca08ed4 100644 (file)
--- a/UCW/Temple.pm
+++ b/UCW/Temple.pm
@@ -175,8 +175,8 @@ sub parse_string($$) {
                        # a comment, which is ignored
                } elsif ($t =~ /\G\@\@/cgs) {
                        out "\@" if $cond[0] > 0;
-               } elsif ($t =~ /\G\@{/cgs) {
-                       my $x = get_nested(\$t, "{", "}");
+               } elsif ($t =~ /\G\@\{/cgs) {
+                       my $x = get_nested(\$t, '\{', '\}');
                        out eval_if_ok($x);
                } elsif ($t =~ /\G\@\[/cgs) {
                        my $x = get_nested(\$t, '\[', '\]');