From ba8ceb0a965abca6d658e69db1b17a7dcc25e697 Mon Sep 17 00:00:00 2001
From: tdressler <tdressler@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 11 May 2008 17:45:38 +0000
Subject: [PATCH] Switch for Windows to use Win32::Serialport instead of
 Device::Serialport

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@181 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_FHZ.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/00_FHZ.pm b/fhem/FHEM/00_FHZ.pm
index 612c5bfdc..c4f465ad7 100755
--- a/fhem/FHEM/00_FHZ.pm
+++ b/fhem/FHEM/00_FHZ.pm
@@ -4,7 +4,7 @@ package main;
 use strict;
 use warnings;
 use Time::HiRes qw(gettimeofday);
-use Device::SerialPort;
+
 
 sub FHZ_Write($$$);
 sub FHZ_Read($);
@@ -222,9 +222,15 @@ FHZ_Define($$)
     $attr{$name}{dummy} = 1;
     return undef;
   }
-
+  
   Log 3, "FHZ opening FHZ device $dev";
-  my $po = new Device::SerialPort ($dev);
+  if ($^O=~/Win/) {
+   eval ("use Win32::SerialPort;");
+   my $po = new Win32::SerialPort ($dev);
+  }else{
+   eval ("use Device::SerialPort;");
+   my $po = new Device::SerialPort ($dev);
+  }
   return "Can't open $dev: $!\n" if(!$po);
   Log 3, "FHZ opened FHZ device $dev";