Escape unescaped { chars in regexps to avoid deprecation warnings

shadow-dot-cat · Aug 23, 2018 · db02260 · db02260
1 parent b0d4bba
commit db02260
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,6 @@
 Revision history for Babble
 
+          - Escape unescaped { chars in regexps to avoid deprecation warnings
 0.090006
           - Work around regexp engine weirditude on 5.18+
 0.090005

diff --git a/lib/Babble/Plugin/Sigify.pm b/lib/Babble/Plugin/Sigify.pm
@@ -9,7 +9,7 @@ sub transform_to_plain {
     my ($m) = @_;
     my $body = $m->submatches->{body}->text;
     $body =~ s/^\s+//;
-    if ($body =~ s/^{\s*my\s*(\([^\)]+\))\s*=\s*\@_\s*;/{/sm) {
+    if ($body =~ s/^\{\s*my\s*(\([^\)]+\))\s*=\s*\@_\s*;/{/sm) {
       my $sig = $1;
       $body =~ s/^{\n\n/{\n/;
       $m->submatches->{body}->replace_text($sig.' '.$body);

diff --git a/t/simple.t b/t/simple.t
@@ -26,7 +26,7 @@ $test->each_match_of('SubroutineDeclaration' => sub {
   my ($match) = @_;
   my $text = $match->text;
   my ($name) = $text =~ /\Asub (\w+)/;
-  $text =~ s/{/{ # define $name/;
+  $text =~ s/\{/{ # define $name/;
   $match->replace_text($text);
 });