X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=dialog.pl;fp=dialog.pl;h=381d1e4439aa7ca7556f714e5749bdd458432477;hb=373992b90bc3f23f2656b20a931f74d94c0c249f;hp=2174f07b1d9cfa0c98e91bb001c55a1a536434e3;hpb=0c5f3d62a4459794d28030f452a1ef6f7585ebaa;p=vrDialog

diff --git a/dialog.pl b/dialog.pl
index 2174f07..381d1e4 100755
--- a/dialog.pl
+++ b/dialog.pl
@@ -42,6 +42,7 @@ my $sock = IO::Socket::INET->new(
 	PeerPort => '23000',
 	Proto    => 'tcp'
 );
+die "can't connect" unless $sock;
 
 sub read_serial {
 	my $len = shift;