unescaped braces in regex is deprecated in 5.17+

perl 5.17.0 and up deprecate the use of unescaped braces inside regular expressions, triggering a warning every time they see it (one that will, in time, become an error). This patch updates Text::Haml to newer perls :)
neilb · Jul 30, 2012 · 00a77ab · 00a77ab
1 parent a1e815f
commit 00a77ab
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/Text/Haml.pm b/lib/Text/Haml.pm
@@ -889,11 +889,11 @@ sub _parse_text {
         my $t;
         my $escape = 0;
         my $found  = 0;
-        if ($text =~ s/^(.*?)?(?<!\\)\#{//) {
+        if ($text =~ s/^(.*?)?(?<!\\)\#\{//) {
             $found = 1;
             $t     = $1;
         }
-        elsif ($text =~ s/^(.*?)?\\\\\#{//) {
+        elsif ($text =~ s/^(.*?)?\\\\\#\{//) {
             $found  = 1;
             $t      = $1;
             $escape = 1;
@@ -905,7 +905,7 @@ sub _parse_text {
         }
 
         if ($found) {
-            $text =~ s/^([^}]+)}//;
+            $text =~ s/^([^}]+)\}//;
 
             my $prefix = $escape ? quotemeta("\\") : '';
             $output .= qq/$prefix".$1."/;