change back to Reuse

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 333693b73a2e65d2ef89d0a620e4b4da9133befa..cdb72aa0e920e41433c8ab724d58b41c1719b8b1 100644 (file)
--- 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;