From 99672ca05fc56ae74979f0f065f40abe34d73504 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 27 Mar 2010 21:16:45 -0500
Subject: error checking

---
 lib/App/Termcast.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm
index f99ecc4..fb01c6a 100644
--- a/lib/App/Termcast.pm
+++ b/lib/App/Termcast.pm
@@ -78,6 +78,8 @@ sub connect {
     my $self = shift;
     my $socket = IO::Socket::INET->new(PeerAddr => $self->host,
                                        PeerPort => $self->port);
+    die "Couldn't connect to " . $self->host . ": $!"
+        unless $socket;
     $socket->write('hello '.$self->user.' '.$self->password."\n");
     return $socket;
 }
-- 
cgit v1.2.3-54-g00ecf