FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 11:26:55 +00:00
Code Issues Releases Wiki Activity

90_at.pm: fix regexp warning for perl-5.28 (Forum #91920)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17507 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2018-10-11 11:47:46 +00:00
parent 5e0d8c15bb
commit 753440b287
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/90_at.pm
View File

@ -61,7 +61,7 @@ at_Define($$)
}
return "Wrong timespec, use \"[+][*[{count}]]<time or func>\""
if($tm !~ m/^(\+)?(\*({\d+})?)?(.*)$/);
if($tm !~ m/^(\+)?(\*(\{\d+\})?)?(.*)$/);
my ($rel, $rep, $cnt, $tspec) = ($1, $2, $3, $4);
my ($abstime, $err, $hr, $min, $sec, $fn);
@ -211,7 +211,7 @@ at_adjustAlign($$)
my($hash, $attrVal) = @_;
my ($tm, $command) = split("[ \t]+", $hash->{DEF}, 2);
$tm =~ m/^(\+)?(\*({\d+})?)?(.*)$/;
$tm =~ m/^(\+)?(\*(\{\d+\})?)?(.*)$/;
my ($rel, $rep, $cnt, $tspec) = ($1, $2, $3, $4);
return "startTimes: $hash->{NAME} is not relative" if(!$rel);