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:
Byte09
2018-12-16 04:30:28 +00:00
parent 0417b0f70c
commit 7793c4e276

View File

@@ -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;