IO::Socket reuse => 1 (from dg)

diff --git a/network-bopm/network-bopm.pl b/network-bopm/network-bopm.pl
index 5723c9960359a1b491e87eec9d6f0648281815de..3dca78138581a8ad2a61e94e9b97d341e0dfb83c 100644 (file)
--- a/network-bopm/network-bopm.pl
+++ b/network-bopm/network-bopm.pl
@@ -144,7 +144,6 @@ sub irc_init #()
 sub irc_cycle #()
 {
    my $handle;
-   my $newhandle;
    my $dcc;
    my @ready;
    my @errored;
@@ -186,6 +185,7 @@ sub irc_cycle #()
       if(($handle == $BOPM_SOCKET) && $BOPM_WAITING)
       {
          do_log('BOPM -> Got connection');
+
          $SELECT->remove($BOPM_SOCKET);
          $BOPM_SOCKET =  $BOPM_SOCKET->accept();
          $SELECT->add($BOPM_SOCKET);
@@ -427,7 +427,9 @@ sub bopm_listen
 
    $BOPM_SOCKET = new IO::Socket::INET( Proto     => "tcp",
                                         Listen    => 1,
-                                        LocalPort => $BOPM{PORT});  
+                                        Reuse     => 1,
+                                        LocalPort => $BOPM{PORT}
+                                      );  
    $SELECT->add($BOPM_SOCKET);
 
    if(!$BOPM_SOCKET)