From fb4779c4da49301f8e85dcb72744de58b4f765e5 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 2 Nov 2010 23:57:44 -0500
Subject: don't try reconnecting immediately if it fails

---
 lib/App/Termcast.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm
index bf719e5..1a11b07 100644
--- a/lib/App/Termcast.pm
+++ b/lib/App/Termcast.pm
@@ -138,13 +138,18 @@ has socket => (
 
 sub _build_socket {
     my $self = shift;
+
     my $socket;
-    while (!$socket) {
+    {
         $socket = IO::Socket::INET->new(PeerAddr => $self->host,
                                         PeerPort => $self->port);
-        Carp::carp "Couldn't connect to " . $self->host . ": $!"
-            unless $socket;
+        if (!$socket) {
+            Carp::carp "Couldn't connect to " . $self->host . ": $!";
+            sleep 5;
+            redo;
+        }
     }
+
     $socket->syswrite($self->establishment_message);
     return $socket;
 }
-- 
cgit v1.2.3-54-g00ecf