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)

[Gerald Turner]

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)

[Gerald Turner]

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