unescaped left brace in regex becomes an error in perl5 v26

diff --git a/scripts/mpd.pl b/scripts/mpd.pl
index 035aba1864f55578a3f00c3d0c9e8cf0ae87ca1c..04f80b85ac81483ba2e5ebac189d78fa0510b161 100644 (file)
--- 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;