From cd04809ed01c203b4c08e96553f6298eb3779ba9 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
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/fhem@1479 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/12_HMS.pm | 4 ++++
 1 file changed, 4 insertions(+)

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