mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-04-21 14:04:15 +00:00
90_at.pm: avoid perl 5.26 Warning in regexp (Forum #44862)
git-svn-id: https://svn.fhem.de/fhem/trunk@10048 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
df73255cd6
commit
8bafc0241f
@ -179,7 +179,7 @@ at_Exec($)
|
||||
$data{AT_TRIGGERTIME} = $hash->{TRIGGERTIME} if($def =~ m/^\+/);
|
||||
|
||||
if($count) {
|
||||
$def =~ s/{\d+}/{$count}/ if($def =~ m/^\+?\*{\d+}/); # Replace the count
|
||||
$def =~ s/\{\d+\}/{$count}/ if($def =~ m/^\+?\*\{\d+\}/); # Replace count
|
||||
Log3 $name, 5, "redefine at command $name as $def";
|
||||
|
||||
$data{AT_RECOMPUTE} = 1; # Tell sunrise compute the next day
|
||||
|
Loading…
x
Reference in New Issue
Block a user