98_MSwitch.pm:fix "PERL WARNING: -> Perl 5.30"
git-svn-id: https://svn.fhem.de/fhem/trunk@17983 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
@@ -6503,7 +6503,7 @@ sub MSwitch_checkcondition($$$) {
|
||||
my $x = 0;
|
||||
my $field ="";
|
||||
my $SELF = $name;
|
||||
while ( $condition =~ m/(.*){(.+)}(.*)/ ) {
|
||||
while ( $condition =~ m/(.*)\{(.+)\}(.*)/ ) {
|
||||
my $firstpart = $1;
|
||||
my $secondpart = $2;
|
||||
my $lastpart = $3;
|
||||
|
||||
Reference in New Issue
Block a user