summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/App/Termcast.pm2
1 files changed, 2 insertions, 0 deletions
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;
}