if (defined($sock)) {
set_event_handler ($sock, read => undef, write => undef, error => undef);
- shutdown($sock, 3);
+ shutdown($sock, 2);
close($sock);
}
my $self = $pkg->new($login_proc);
$self->{sock} = $io_socket->new (
- LocalAddr => "$my_host:$my_port",
-# LocalPort => $my_port,
+ LocalAddr => $my_host,
+ LocalPort => $my_port,
Listen => SOMAXCONN,
Proto => 'tcp',
Reuse => 1);