From 1abdfefca7989b7c403d598cd6f88dd11e1526b3 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tom=C3=A1=C5=A1=20Male=C4=8Dek?= <malecektomas@gmail.com>
Date: Wed, 25 Nov 2015 11:29:55 +0100
Subject: [PATCH] Escaped curly braces in regexes

Warning "Unescaped left brace in regex is deprecated" added in
Perl 5.22.0 is not triggered anymore.
---
 UCW/Temple.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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, '\[', '\]');
-- 
2.39.5