Control: reassign -1 libmp3-tag-perl
Control: forcemerge 928197 -1
-=| Martin Schuster, 15.03.2019 21:21:17 +0100 |=-
> Package: libmp3-info-perl
> Version: 1.24-1.2
> Severity: normal
>
> Using get_mp3tag()
>
> Unescaped left brace in regex is deprecated here (and will be fatal in
> Perl 5.32), passed through in regex; marked by <-- HERE in m/^\??({ <--
> HERE ([^{}]+)}|.)/ at /usr/share/perl5/MP3/Tag.pm line 2944.
> Unescaped left brace in regex is deprecated here (and will be fatal in
> Perl 5.32), passed through in regex; marked by <-- HERE in m/^({ <--
> HERE [^{}]+}|\w)/ at /usr/share/perl5/MP3/Tag.pm line 2956.
>
>
> Suggested fix:
>
> --- Tag.pm.orig 2017-07-12 21:25:22.000000000 +0200
> +++ Tag.pm 2019-03-15 21:16:44.760013512 +0100
> @@ -2941,7 +2941,7 @@
> local $self->{ms} = int($time * 1000 + 0.5) if defined $time;
> my ($out, %have, $c) = '';
> for my $f (@_) {
> - $have{$+}++ if $f =~ /^\??({([^{}]+)}|.)/;
> + $have{$+}++ if $f =~ /^\??(\{([^{}]+)\}|.)/;
> }
> ...
This looks like bug #9284684 in libmp3-tag-perl (already fixed via
NMU), but filed earlier and in the wrong package. libmp3-info-perl
doesn't ship Tag.pm.
Merging accordingly.
