mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

90_at.pm: avoid perl 5.26 Warning in regexp (Forum #44862)

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10048 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2015-11-29 14:51:40 +00:00
parent 1bb7b2bd7e
commit c35d28f223
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/FHEM/90_at.pm
View File

@@ -179,7 +179,7 @@ at_Exec($)
$data{AT_TRIGGERTIME} = $hash->{TRIGGERTIME} if($def =~ m/^\+/); $data{AT_TRIGGERTIME} = $hash->{TRIGGERTIME} if($def =~ m/^\+/);
if($count) { 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"; Log3 $name, 5, "redefine at command $name as $def";
$data{AT_RECOMPUTE} = 1; # Tell sunrise compute the next day $data{AT_RECOMPUTE} = 1; # Tell sunrise compute the next day