Bug#928197: libmp3-tag-perl: Perl 5.28 warning: Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32)
Control: tags -1 + patch Patch attached. -- Gerald Turner Encrypted mail preferred! OpenPGP: 4096R / CA89 B27A 30FA 66C5 1B80 3858 EC94 2276 FDB8 716D Description: fix another "unescaped left brace" error Author: Gerald Turner Origin: vendor Bug-Debian: https://bugs.debian.org/928197 Forwarded: not-needed Applied-Upstream: fixed in 1.15 Last-Update: 2019-04-29 --- This patch header follows DEP-3: http://dep.debian.net/deps/dep3/ Index: libmp3-tag-perl-1.13/lib/MP3/Tag.pm === --- libmp3-tag-perl-1.13.orig/lib/MP3/Tag.pm +++ libmp3-tag-perl-1.13/lib/MP3/Tag.pm @@ -2941,7 +2941,7 @@ sub format_time { 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 @@ sub format_time { } 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') { signature.asc Description: PGP signature
Bug#928197: libmp3-tag-perl: Perl 5.28 warning: Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32)
Package: libmp3-tag-perl Version: 1.13-1.1 Severity: normal Dear Maintainer, Quite similar to bug #878504 and #809352, Perl 5.28 now complains about additional unescaped curly braces used in regular expressions. Fixed in upstream 1.15: https://metacpan.org/diff/file?target=ILYAZ/MP3-Tag-1.15/=ILYAZ%2FMP3-Tag-1.14#lib/MP3/Tag.pm -- System Information: Debian Release: buster/sid APT prefers testing APT policy: (601, 'testing'), (500, 'testing-debug') Architecture: amd64 (x86_64) Kernel: Linux 4.19.0-4-amd64 (SMP w/8 CPU cores) Kernel taint flags: TAINT_WARN Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8), LANGUAGE=en_US.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash Init: systemd (via /run/systemd/system) LSM: AppArmor: enabled Versions of packages libmp3-tag-perl depends on: ii perl 5.28.1-6 Versions of packages libmp3-tag-perl recommends: ii libimage-exiftool-perl 11.16-1 ii libmp3-info-perl1.24-1.2 Versions of packages libmp3-tag-perl suggests: ii texlive-latex-extra 2018.20190227-2 -- no debconf information -- Gerald Turner Encrypted mail preferred! OpenPGP: 4096R / CA89 B27A 30FA 66C5 1B80 3858 EC94 2276 FDB8 716D signature.asc Description: PGP signature