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 06:46:29.000000000 +0000 +++ libmp3-tag-perl-1.13/debian/changelog 2017-07-12 19:25:22.000000000 +0000 @@ -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 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 00:00:00.000000000 +0000 +++ libmp3-tag-perl-1.13/debian/patches/02_fix_escape.patch 2017-07-12 19:24:21.000000000 +0000 @@ -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 +Reviewed-by: gregor herrmann +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 06:46:29.000000000 +0000 +++ libmp3-tag-perl-1.13/debian/patches/series 2017-07-12 19:22:53.000000000 +0000 @@ -1 +1,2 @@ 01_spelling.patch +02_fix_escape.patch