From 94cca6df5cbd855a76f76c216bbf30dd6097535c Mon Sep 17 00:00:00 2001
From: mgehre <>
Date: Sun, 9 Dec 2012 15:20:43 +0000
Subject: [PATCH] MAX: fix perl warning

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

diff --git a/fhem/FHEM/00_MAXLAN.pm b/fhem/FHEM/00_MAXLAN.pm
index 16d8a5a65..d698f2245 100755
--- a/fhem/FHEM/00_MAXLAN.pm
+++ b/fhem/FHEM/00_MAXLAN.pm
@@ -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;