From: yabbes <redacted>
Date: Fri, 30 Mar 2018 16:27:58 +0000 (+0200)
Subject: unescaped left brace in regex becomes an error in perl5 v26
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=9b42aef2bdcffa9e3c386f83e010ce9be1626b3c;p=irssi-scripts.irssi.org.git

unescaped left brace in regex becomes an error in perl5 v26
---

diff --git a/scripts/mpd.pl b/scripts/mpd.pl
index 035aba1..04f80b8 100644
--- a/scripts/mpd.pl
+++ b/scripts/mpd.pl
@@ -96,7 +96,7 @@ sub np {
             $ans = <$socket>;
         }
 
-        if ($ans =~ /^ACK \[...\] {.*?} (.*)$/){
+        if ($ans =~ /^ACK \[...\] \{.*?\} (.*)$/){
             my_status_print('Auth Error: '.$1, $witem);
             close $socket;
             return;
@@ -120,7 +120,7 @@ sub np {
     print $socket "status\n";
     while (not $ans =~ /^(OK$|ACK)/) {
         $ans = <$socket>;
-        if ($ans =~ /^ACK \[...\] {.*?} (.*)$/){
+        if ($ans =~ /^ACK \[...\] \{.*?\} (.*)$/){
             my_status_print($1, $witem);
             close $socket;
             return;