91_sequence.pm: Fix notifydev detection for corner cases (Forum #113273)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@22623 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2020-08-18 07:24:05 +00:00
parent 7d6aa0f4c6
commit 6eb119873b

View File

@ -52,7 +52,7 @@ sequence_Define($$)
return "Bad regexp 1: $@" if($@);
return "Bad timeout spec $to" # timeout or delay:timeout
if (defined($to) && $to !~ m/^(\d+(\.\d+)?:)?\d+(\.\d+)?$/);
push @reList,$re;
push @reList,$re if($re !~ m/^:/); # Respect feature: use last dev
}
$hash->{RE} = $def[0];
@ -60,7 +60,7 @@ sequence_Define($$)
$hash->{MAX} = int(@def);
$hash->{STATE} = "active";
$hash->{TS} = 0;
notifyRegexpChanged($hash, join("|",@reList));
InternalTimer(0, sub { notifyRegexpChanged($hash, join("|",@reList)) }, 0);
return undef;
}