From 1eb47b612c0143c4dce75d13fac710de9a430a04 Mon Sep 17 00:00:00 2001
From: mgehre <mgehre@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 9 Dec 2012 15:20:43 +0000
Subject: [PATCH] MAX: fix perl warning

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

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