[LON-CAPA-cvs] cvs: loncom / LondConnection.pm

foxr lon-capa-cvs@mail.lon-capa.org
Mon, 27 Oct 2003 10:09:37 -0000


foxr		Mon Oct 27 05:09:37 2003 EDT

  Modified files:              
    /loncom	LondConnection.pm 
  Log:
  Reduce the timeout
  
  
Index: loncom/LondConnection.pm
diff -u loncom/LondConnection.pm:1.12 loncom/LondConnection.pm:1.13
--- loncom/LondConnection.pm:1.12	Tue Oct  7 07:23:26 2003
+++ loncom/LondConnection.pm	Mon Oct 27 05:09:37 2003
@@ -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 @@
 					       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 @@
 	    $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;