Changeset 25415 for gs2-extensions/tdb-edit/trunk/src/perllib/SocketsSwimmingThreadPoolClient.pm

Timestamp:

2012-04-18T11:59:21+12:00 (12 years ago)

Author:

jmt12

Message:

Actually make the client sleep the retry time it says it will

File:

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

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

@@ -10 +10 @@
 use warnings;
 
-my $retry_time = 30;
+my $retry_time = 5;
 
 sub new
@@ -69 +69 @@
     print "=> Most likely cause - TCP ephemeral ports exhausted (stuck in TIME_WAITs)\n";
     print "=> Retry in " . $retry_time . " seconds.\n";
+    sleep($retry_time);
   }
 }