From cd8170b694fd0e83f7908dbbea0b37bad80fc2e1 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 11 Jul 2014 14:09:37 +0000
Subject: [PATCH] ZWave: fix MULTI_SENSOR decoding for slightly strange packets
 (Forum #25036)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6238 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_ZWave.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm
index 853c1ff1b..233840f21 100755
--- a/fhem/FHEM/10_ZWave.pm
+++ b/fhem/FHEM/10_ZWave.pm
@@ -535,6 +535,7 @@ ZWave_ParseMultilevel($$$)
   my $pr = (hex($fl)>>5)&0x07; # precision
   my $sc = (hex($fl)>>3)&0x03; # scale
   my $bc = (hex($fl)>>0)&0x07; # bytecount
+  $arg = substr($arg, 0, 2*$bc);
   my $msb = (hex($arg)>>8*$bc-1); # most significant bit  ( 0 = pos, 1 = neg )
   my $val = $msb ? -( 2 ** (8 * $bc) - hex($arg) ) : hex($arg); # 2's complement   
   my $ml = $ml_tbl{$type};