Help for this page

Select Code to Download


  1. or download this
    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 C:/Strawberry/perl/site/lib/MP3/Tag.pm line 3080.
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
 C:/Strawberry/perl/site/lib/MP3/Tag.pm line 3092.
  2. or download this
      for my $f (@_) {
    $have{$+}++ if $f =~ /^\??({([^{}]+)}|.)/;
  }