--- misc/mailinfo/mailinfo.pl 2001/07/19 16:45:48 1.4 +++ misc/mailinfo/mailinfo.pl 2001/07/31 14:49:47 1.5 @@ -9,7 +9,7 @@ # - T.D.Bishop@ukc.ac.uk # # $Author: tdb $ -# $Id: mailinfo.pl,v 1.4 2001/07/19 16:45:48 tdb Exp $ +# $Id: mailinfo.pl,v 1.5 2001/07/31 14:49:47 tdb Exp $ #------------------------------------------------------------ $| = 1; @@ -87,10 +87,10 @@ sub mailinfo() { PeerAddr => $server, PeerPort => $port, Proto => 'tcp' - ) or die "Connection to server broken"; + ) or die "Connection to server broken\n"; if(!defined $sock) { - print "Connection to server broken"; + print "Connection to server broken\n"; exit(1); }