Control: tags -1 + patch Patch attached.
-- Gerald Turner <gtur...@unzane.com> 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 <gtur...@unzane.com> 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