2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-26 04:24:53 +00:00

Tag.pm: fix warnings, Forum: 106763

git-svn-id: https://svn.fhem.de/fhem/trunk@20939 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-01-11 16:17:32 +00:00
parent 016b9f7c68
commit 9c184ae6e1
2 changed files with 3 additions and 2 deletions
fhem
CHANGED
FHEM/lib/MP3

@ -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

@ -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') {