MAX: fix perl warning

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@2309 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mgehre 2012-12-09 15:20:43 +00:00
parent 32be6c7499
commit e0c62793e1

View File

@ -155,7 +155,7 @@ MAXLAN_Connect($)
#Parsing the "C:" responses later on will set IODev correctly again.
#This effectively removes IODev from all devices that are not longer paired to our Cube.
foreach (%{$modules{MAX}{defptr}}) {
$modules{MAX}{defptr}{$_}{IODev} = undef if($modules{MAX}{defptr}{$_}{IODev} == $hash);
$modules{MAX}{defptr}{$_}{IODev} = undef if(defined($modules{MAX}{defptr}{$_}{IODev}) and $modules{MAX}{defptr}{$_}{IODev} == $hash);
}
my $rmsg;