Changeset 25497 for gs2-extensions

Timestamp:

2012-04-27T09:50:41+12:00 (12 years ago)

Author:

jmt12

Message:

Replacing die() with warning and retry if opening of server end of socket fails

File:

• gs2-extensions/tdb-edit/trunk/src/perllib/SocketsSwimmingThreadPoolServer.pm (modified) (2 diffs)

gs2-extensions/tdb-edit/trunk/src/perllib/SocketsSwimmingThreadPoolServer.pm

@@ -88 +88 @@
   my %socket;
   # lsocket => listerner [sic] socket
-  my $lsocket = new IO::Socket::INET(%{$self->{socket_defaults}}, Proto => 'tcp', Listen => 1, Reuse => 1);
-  die "Can't create listerner socket. Server can't start. $!." unless $lsocket;
+  my $lsocket;
+  while (!defined $lsocket || !$lsocket)
+  {
+    $lsocket = new IO::Socket::INET(%{$self->{socket_defaults}}, Proto => 'tcp', Listen => 1, Reuse => 1);
+    if (!defined $lsocket || !$lsocket)
+    {
+      print STDERR "Error! Can't create listerner socket. Server can't start. Trying again...\n$!.";
+      sleep(1);
+    }
+  }
   until($stop)
   {
@@ -154 +162 @@
     $closed_queue->enqueue($n);
   }
+  # Properly rejoin thread
+  my $thread = threads->self();
+  if (!$thread->is_detached())
+  {
+    $thread->join();
+  }
 }