Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

44_S7: S5 fix for checking serial port support in win environment

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14939 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
charlie71 2017-08-21 07:50:47 +00:00
parent d002092b56
commit dccc7c40aa
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fhem/FHEM/44_S7_S5Client.pm
View File

@ -9,14 +9,6 @@ use AutoLoader;
require "44_S7_Client.pm"; require "44_S7_Client.pm";
#if ( OS_Linux() ) {
use Device::SerialPort;
#}
#else {
# use Win32::SerialPort;
#}
package S5Client; package S5Client;
#use S7ClientBase; #use S7ClientBase;
@ -485,13 +477,14 @@ sub S5ConnectPLCAS511($$) {
my $b1 = ""; my $b1 = "";
my $ttyPort; my $ttyPort;
#if ( OS_Linux() ) { if ($^O=~/Win/) {
$self->{serial} = new Device::SerialPort($portName); eval ("use Win32::SerialPort;");
$self->{serial} = new Win32::SerialPort ($portName);
}else{
eval ("use Device::SerialPort;");
$self->{serial} = new Device::SerialPort ($portName);
}
#}
#else {
# $ttyPort = new Win32::SerialPort( $portName );
#}
main::Log3( undef, 3, "Can't open serial port $portName" ) main::Log3( undef, 3, "Can't open serial port $portName" )
unless ( $self->{serial} ); unless ( $self->{serial} );