X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=cdb72aa0e920e41433c8ab724d58b41c1719b8b1;hb=cb340a0cf45f789d95201e4d4b9aec4ed581622d;hp=333693b73a2e65d2ef89d0a620e4b4da9133befa;hpb=55f3823f3ad86d76e1e995b0f255f1804684de18;p=spider.git diff --git a/perl/Msg.pm b/perl/Msg.pm index 333693b7..cdb72aa0 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -348,8 +348,7 @@ sub new_server { # LocalPort => $my_port, Listen => SOMAXCONN, Proto => 'tcp', - ReuseAddr => 1, - ); + Reuse => 1); die "Could not create socket: $! \n" unless $self->{sock}; set_event_handler ($self->{sock}, read => sub { $self->new_client } ); return $self;