Control: tags 809352 + pending Dear maintainer,
I've prepared an NMU for libmp3-tag-perl (versioned as 1.13-1.1) and uploaded it to DELAYED/5. Please feel free to tell me if I should delay it longer. Regards. -- .''`. https://info.comodo.priv.at/ - Debian Developer https://www.debian.org : :' : OpenPGP fingerprint D1E1 316E 93A7 60A8 104D 85FA BB3A 6801 8649 AA06 `. `' Member of VIBE!AT & SPI, fellow of the Free Software Foundation Europe `- NP: The Eagles: Tequila sunrise
diff -Nru libmp3-tag-perl-1.13/debian/changelog libmp3-tag-perl-1.13/debian/changelog --- libmp3-tag-perl-1.13/debian/changelog 2012-02-05 07:46:29.000000000 +0100 +++ libmp3-tag-perl-1.13/debian/changelog 2017-07-12 21:25:22.000000000 +0200 @@ -1,3 +1,12 @@ +libmp3-tag-perl (1.13-1.1) unstable; urgency=medium + + * Non-maintainer upload. + Fix "FTBFS with perl 5.26: Unescaped left brace in regex": + add patch from Harald Dunkel which escapes the brace. + (Closes: #809352) + + -- gregor herrmann <gre...@debian.org> Wed, 12 Jul 2017 21:25:22 +0200 + libmp3-tag-perl (1.13-1) unstable; urgency=low * New upstream version. diff -Nru libmp3-tag-perl-1.13/debian/patches/02_fix_escape.patch libmp3-tag-perl-1.13/debian/patches/02_fix_escape.patch --- libmp3-tag-perl-1.13/debian/patches/02_fix_escape.patch 1970-01-01 01:00:00.000000000 +0100 +++ libmp3-tag-perl-1.13/debian/patches/02_fix_escape.patch 2017-07-12 21:24:21.000000000 +0200 @@ -0,0 +1,20 @@ +Description: fix "unescaped left brace" error +Origin: vendor +Bug-Debian: https://bugs.debian.org/809352 +Forwarded: not-needed +Author: Harald Dunkel <ha...@afaics.de> +Reviewed-by: gregor herrmann <gre...@debian.org> +Last-Update: 2017-07-12 +Applied-Upstream: fixed in 1.14 + +--- a/lib/MP3/Tag.pm ++++ b/lib/MP3/Tag.pm +@@ -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); diff -Nru libmp3-tag-perl-1.13/debian/patches/series libmp3-tag-perl-1.13/debian/patches/series --- libmp3-tag-perl-1.13/debian/patches/series 2012-02-05 07:46:29.000000000 +0100 +++ libmp3-tag-perl-1.13/debian/patches/series 2017-07-12 21:22:53.000000000 +0200 @@ -1 +1,2 @@ 01_spelling.patch +02_fix_escape.patch
signature.asc
Description: Digital Signature
