From: Tomáš Maleček <malecektomas@gmail.com>
Date: Wed, 25 Nov 2015 10:29:55 +0000 (+0100)
Subject: Escaped curly braces in regexes
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=1abdfefca7989b7c403d598cd6f88dd11e1526b3;p=temple.git

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 99a2d15..5fc82d0 100644
--- 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, '\[', '\]');