90_at.pm: allow repetitive for absolute functions (Forum #116377)

git-svn-id: https://svn.fhem.de/fhem/trunk@23279 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2020-12-02 13:45:33 +00:00
parent 60e781dcd5
commit fa2f64cda7

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);
@@ -91,7 +91,7 @@ at_Define($$)
}
}
return "datespec is not allowed with + or *" if($abstime && ($rel || $rep));
return "datespec is not allowed with +" if($abstime && $rel);
if($hash->{CL}) { # Do not check this for definition
$err = perlSyntaxCheck($command, ());