KS300: use hex for newer perl versions

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5026 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2014-02-23 10:20:47 +00:00
parent 4db07990cd
commit 3e23f3bf17
1 changed files with 1 additions and 1 deletions
--- a/fhem/FHEM/13_KS300.pm
+++ b/fhem/FHEM/13_KS300.pm
@@ -229,7 +229,7 @@ KS300_Parse($$)
    $v[9] = KS300_windIndex($v[2]);

    # Negative temp
-    $v[4] = -$v[4] if($v[8] & 8);
+    $v[4] = -$v[4] if(hex($v[8]) & 8);

    Log3 $def, 4, "KS300 $dev: $msg";