From 5d17371e5f7d22ed20637a8d088f673d7e30646f Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 23 Apr 2012 12:43:02 +0000
Subject: [PATCH] Avoid unitialized values on strange msg length.

git-svn-id: https://svn.fhem.de/fhem/trunk@1479 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/12_HMS.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/fhem/FHEM/12_HMS.pm b/fhem/FHEM/12_HMS.pm
index 0d14090fc..118b1be5d 100755
--- a/fhem/FHEM/12_HMS.pm
+++ b/fhem/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) {