projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add various eph timings and variables to control them
[spider.git]
/
perl
/
Msg.pm
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index 615feb1987e4a102def727f208d093107f63d85b..333693b73a2e65d2ef89d0a620e4b4da9133befa 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-344,11
+344,12
@@
sub new_server {
my $self = $pkg->new($login_proc);
$self->{sock} = IO::Socket::INET->new (
my $self = $pkg->new($login_proc);
$self->{sock} = IO::Socket::INET->new (
- LocalAddr =>
$my_host
,
- LocalPort => $my_port,
+ LocalAddr =>
"$my_host:$my_port"
,
+
#
LocalPort => $my_port,
Listen => SOMAXCONN,
Proto => 'tcp',
Listen => SOMAXCONN,
Proto => 'tcp',
- Reuse => 1);
+ ReuseAddr => 1,
+ );
die "Could not create socket: $! \n" unless $self->{sock};
set_event_handler ($self->{sock}, read => sub { $self->new_client } );
return $self;
die "Could not create socket: $! \n" unless $self->{sock};
set_event_handler ($self->{sock}, read => sub { $self->new_client } );
return $self;