From 9c184ae6e11cb6e6bd2743266c5c95d466f65b48 Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Sat, 11 Jan 2020 16:17:32 +0000 Subject: [PATCH] Tag.pm: fix warnings, Forum: 106763 git-svn-id: https://svn.fhem.de/fhem/trunk@20939 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 1 + fhem/FHEM/lib/MP3/Tag.pm | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index 8b9bb3600..33af31ad3 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - bugfix: Tag.pm: fix warnings, Forum: 106763 - feature: 73_NUKIBridge: 74_NUKIDevice change Code to 2 step modul and Dispatch Fn, make Bridge robust - bugfix: 74_XiaomiBTLESens: fix thermoHydroSens loop bug diff --git a/fhem/FHEM/lib/MP3/Tag.pm b/fhem/FHEM/lib/MP3/Tag.pm index eae75280a..52bfde50c 100644 --- a/fhem/FHEM/lib/MP3/Tag.pm +++ b/fhem/FHEM/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') {