From 0df616f5517aae63bcd01b3147ec45b7943ddefb Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 2 Nov 2010 23:48:39 -0500
Subject: repeatedly try reconnecting, don't just die after trying once

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

diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm
index df5870c..132a2b7 100644
--- a/lib/App/Termcast.pm
+++ b/lib/App/Termcast.pm
@@ -138,10 +138,13 @@ has socket => (
 
 sub _build_socket {
     my $self = shift;
-    my $socket = IO::Socket::INET->new(PeerAddr => $self->host,
-                                       PeerPort => $self->port);
-    die "Couldn't connect to " . $self->host . ": $!"
-        unless $socket;
+    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;
+    }
     $socket->syswrite($self->establishment_message);
     return $socket;
 }
-- 
cgit v1.2.3-54-g00ecf