From 87a0f6c15d040b151422db07b83e4ed72e71175f Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 23 Feb 2014 10:20:47 +0000
Subject: [PATCH] KS300: use hex for newer perl versions

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@5026 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/13_KS300.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FHEM/13_KS300.pm b/FHEM/13_KS300.pm
index 657e1679a..f9bf76d9b 100755
--- a/FHEM/13_KS300.pm
+++ b/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";