From 33c90af83565726f9623e8a91ca287766c1604b6 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 29 Dec 2009 11:15:31 +0000
Subject: [PATCH] Peters hex-fix

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@526 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/14_CUL_WS.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FHEM/14_CUL_WS.pm b/FHEM/14_CUL_WS.pm
index 0bda0666f..eb4b8583a 100755
--- a/FHEM/14_CUL_WS.pm
+++ b/FHEM/14_CUL_WS.pm
@@ -134,8 +134,8 @@ CUL_WS_Parse($$)
     if($typbyte == 3 && int(@a) > 8) {           # wind
       my $hun = ($firstbyte&8) ? 100 : 0;
       $wnd = ($a[6].$a[3].".".$a[4])+$hun;
-      my $dir  = (($a[7]&3).$a[8].$a[5])+0;
-      my $swing = ($a[7]&6) >> 2;
+      my $dir  = ((hex($a[7])&3).$a[8].$a[5])+0;
+      my $swing = (hex($a[7])&6) >> 2;
       $val = "W: $wnd D: $dir A: $swing";
       $devtype = "Wind";
       $family = "WS7000";