[patch] Patch for unescaled left braces in MP3/Tag.pm

Tag.pm.diff (text/plain), 1.10 KB, created by Phil Stracchino (Unix Ronin) on 2019-06-11 20:28:50 UTC

--- a/Tag.pm	2019-05-25 14:21:40.374214212 -0400
+++ b/Tag.pm	2019-06-11 16:25:33.857274689 -0400
@@ -3075,11 +3075,11 @@
   $self = $self->new_fake() unless ref $self;
   local $self->{ms} =  $self->{ms}; # Make modifiable
   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)$/) {
       my $u = $Unit{$1} or die "Unexpected unit of time for rounding: `$1'";
       $time = $self->total_secs unless defined $time;
@@ -3087,11 +3087,11 @@
       $self->{ms} = 1000 * $time;
       next;
     }
     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') {
 	$time = $self->total_secs unless defined $time;
 	$opt = int($time / 3600) || !(grep $have{$_}, qw(m mL s S SL SML));