Always closing...
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@2965 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
@@ -90,7 +90,7 @@ BlockingInformParent($;$$)
|
|||||||
{
|
{
|
||||||
my ($informFn, $param, $waitForRead) = @_;
|
my ($informFn, $param, $waitForRead) = @_;
|
||||||
my $ret = undef;
|
my $ret = undef;
|
||||||
$waitForRead = 1 if (undef($waitForRead));
|
$waitForRead = 1 if (!defined($waitForRead));
|
||||||
|
|
||||||
# Write the data back, calling the function
|
# Write the data back, calling the function
|
||||||
my $addr = "localhost:$defs{$telnetDevice}{PORT}";
|
my $addr = "localhost:$defs{$telnetDevice}{PORT}";
|
||||||
@@ -112,9 +112,7 @@ BlockingInformParent($;$$)
|
|||||||
$ret = undef if(!defined($len));
|
$ret = undef if(!defined($len));
|
||||||
}
|
}
|
||||||
|
|
||||||
if($^O =~ m/Win/) {
|
close($client) if($client);
|
||||||
close($client) if($client);
|
|
||||||
}
|
|
||||||
|
|
||||||
return $ret;
|
return $ret;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user