KS300: use hex for newer perl versions

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@5026 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2014-02-23 10:20:47 +00:00
parent 82f9289b6a
commit 87a0f6c15d

View File

@ -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";