From fea38ecd79217e5ed15b803cf4ddad5bbd89c821 Mon Sep 17 00:00:00 2001
From: Byte09 <>
Date: Sun, 16 Dec 2018 04:30:28 +0000
Subject: [PATCH] 98_MSwitch.pm:fix "PERL WARNING: -> Perl 5.30"

git-svn-id: https://svn.fhem.de/fhem/trunk@17983 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_MSwitch.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/98_MSwitch.pm b/fhem/FHEM/98_MSwitch.pm
index 735528df5..efa50de97 100644
--- a/fhem/FHEM/98_MSwitch.pm
+++ b/fhem/FHEM/98_MSwitch.pm
@@ -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;