--- loncom/LondConnection.pm	2003/10/07 11:23:26	1.12
+++ loncom/LondConnection.pm	2003/10/27 10:09:37	1.13
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondConnection.pm,v 1.12 2003/10/07 11:23:26 foxr Exp $
+# $Id: LondConnection.pm,v 1.13 2003/10/27 10:09:37 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -167,7 +167,7 @@ sub new {
 					       PeerPort => $self->{Port},
 					       Type     => SOCK_STREAM,
 					       Proto    => "tcp",
-					       Timeout  => 5)) {
+					       Timeout  => 3)) {
 	return undef;		# Inidicates the socket could not be made.
     }
     #
@@ -286,7 +286,7 @@ sub Readable {
 	    $key=substr($key,0,32);
 	    my $cipherkey=pack("H32",$key);
 	    $self->{Cipher} = new IDEA $cipherkey;
-	    if($self->{Cipher} == undef) {
+	    if($self->{Cipher} eq undef) {
 		$self->Transition("Disconnected");
 		$socket->close();
 		return -1;