use DXUtil;
-use IO::Select;
use DXDebug;
use Timer;
my $sock;
if ($blocking_supported) {
- $sock = $io_socket->new(PeerAddr => $to_host, PeerPort => $to_port, Proto => 'tcp', Blocking =>0);
+ $sock = $io_socket->new(PeerAddr => $to_host, PeerPort => $to_port, Proto => 'tcp', Blocking =>0) or return undef;
} else {
# Create a new internet socket
- my $sock = $io_socket->new();
+ $sock = $io_socket->new();
return undef unless $sock;
my $proto = getprotobyname('tcp');
if (defined($sock)) {
set_event_handler ($sock, read => undef, write => undef, error => undef);
- shutdown($sock, 3);
+ shutdown($sock, 2);
close($sock);
}