Merge pull request #42 from pkg-perl-tools/pkg-perl-1531251779

fix regexp warning with perl 5.28
xaicron · Jul 10, 2018 · 1d08813 · 1d08813
2 parents 43c1b0e + 99da81b
commit 1d08813
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/WWW/YouTube/Download.pm b/lib/WWW/YouTube/Download.pm
@@ -227,7 +227,7 @@ sub _get_args {
         if ($line =~ /the uploader has not made this video available in your country/i) {
             croak 'Video not available in your country';
         }
-        elsif ($line =~ /^.+ytplayer\.config\s*=\s*({.*})/) {
+        elsif ($line =~ /^.+ytplayer\.config\s*=\s*(\{.*})/) {
             ($data, undef) = JSON->new->utf8(1)->decode_prefix($1);
             last;
         }