Your message dated Fri, 1 Jul 2022 09:11:16 +0300
with message-id
<20220701061116.mgpfnynj6y33xg2h@fbd7c150-3361-11e8-8c11-5badabdd4a8d>
and subject line closing #924684: libmp3-info-perl: Unescaped left brace in
regex is deprecated
has caused the Debian Bug report #924684,
regarding libmp3-info-perl: Unescaped left brace in regex is deprecated
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact [email protected]
immediately.)
--
924684: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=924684
Debian Bug Tracking System
Contact [email protected] with problems
--- Begin Message ---
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
--- End Message ---
--- Begin Message ---
Version: 1.13-1.2
This bug was fixed in 1.13-1.2. Closing the report.
-- Damyan
--- End Message ---
