Avoid unitialized values on strange msg length.

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@1479 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2012-04-23 12:43:02 +00:00
parent fd1e3f5a02
commit 0d55edceff
1 changed files with 4 additions and 0 deletions
--- a/FHEM/12_HMS.pm
+++ b/FHEM/12_HMS.pm
@@ -82,6 +82,10 @@ HMS_Parse($$)
 #                        012345678901234567890123456789
 #                        810e047f0214a001a81f000001000000 HMS100TFK
  my $val = substr($msg, 24, 8) if(length($msg) == 32);
+  if(!defined($val)) {
+    Log 3, "Strange HMS message $msg";
+    return "";
+  }

  my $type = "";
  foreach my $c (keys %codes) {