2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-16 16:56:04 +00:00

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 6950718036
commit fea38ecd79

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;