* Elimar Riesebieter <riese...@lxtec.de> [2016-06-19 22:07 +0200]:
> Hi Axel,
>
> * Axel Beckert <a...@debian.org> [2016-06-19 01:14 +0200]:
>
> > Package: ripit
> > Version: 4.0.0~beta20140508-1
> >
> > Dear Elimar,
> >
> > starting up ripit without any parameters and having an audio CD in the
> > CD-ROM drive throws the following Perl warning:
> >
> > ---8<---
> > → ripit
> > Unescaped left brace in regex is deprecated, passed through in regex;
> > marked by <-- HERE in m/(\\%(?:\\=)?(\w|\\{ <-- HERE
> > (?:\w|\\[^\w\\{}]|\\\\\\[\\{}])*\\}|\\\W))/ at /usr/share/perl5/MP3/Tag.pm
> > line 2611.
>
> /usr/share/perl5/MP3/Tag.pm is part of libmp3-tag-perl which ripit
> relies on. So do we have to reassign this bug?Attached patch (source diff) makes ripit to run fine, but I am not sure whether this has an impact to other apps. Elimar -- On the keyboard of life you have always to keep a finger at the escape key;-)
diff -Naurd a/lib/MP3/Tag.pm b/lib/MP3/Tag.pm
--- a/lib/MP3/Tag.pm 2016-06-19 22:19:34.000000000 +0200
+++ b/lib/MP3/Tag.pm 2016-06-19 22:25:43.968542369 +0200
@@ -2607,7 +2607,7 @@
my ($self, $pattern) = @_;
$pattern = "^\Q$pattern\E\$";
# unquote %. and %=. and %={WHATEVER} and %{WHATEVER}
- $pattern =~ s<(\\%(?:\\=)?(\w|\\{(?:\w|\\[^\w\\{}]|\\\\\\[\\{}])*\\}|\\\W))>
+ $pattern =~ s<(\\%(?:\\=)?(\w|\\(?:\w|\\[^\w\\{}]|\\\\\\[\\{}])*\\}|\\\W))>
( __unquote($1) )ge;
# $pattern =~ s/(\\%(?:\\=)?)(\w|\\(\W))/$unquote{$1}$+/g;
return $self->parse_rex_prepare($pattern);
signature.asc
Description: PGP signature
