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