Package: libmp3-info-perl
Version: 1.24-1.2
Severity: normal
Dear Maintainer,
* What led up to the situation?
Using get_mp3tag()
* What was the outcome of this action?
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 =~ /^\??(\{([^{}]+)\}|.)/;
}
for my $f (@_) {
if (!$c++ and $f =~ /^=>(\w)$/) {
@@ -2953,7 +2953,7 @@
}
my $ff = $f; # Modifiable
my $opt = ($ff =~ s/^\?//);
- $ff =~ s/^({[^{}]+}|\w)// or die "unexpected time format: <<$f>>";
+ $ff =~ s/^(\{[^{}]+\}|\w)// or die "unexpected time format: <<$f>>";
my ($what, $format) = ($1, '');
if ($opt) {
if ($what eq 'H') {
-- System Information:
Debian Release: buster/sid
APT prefers testing
APT policy: (500, 'testing')
Architecture: amd64 (x86_64)
Foreign Architectures: i386
Kernel: Linux 4.20.15-martin (SMP w/12 CPU cores)
Kernel taint flags: TAINT_PROPRIETARY_MODULE, TAINT_OOT_MODULE,
TAINT_UNSIGNED_MODULE
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8),
LANGUAGE=en_US:en (charmap=UTF-8)
Shell: /bin/sh linked to /usr/bin/dash
Init: systemd (via /run/systemd/system)
Versions of packages libmp3-info-perl depends on:
ii libunicode-string-perl 2.10-1+b4
ii perl 5.28.1-4
libmp3-info-perl recommends no packages.
libmp3-info-perl suggests no packages.
-- no debconf information
