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

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 25 Aug 2006 21:20:13 -0000


albertel		Fri Aug 25 17:20:13 2006 EDT

  Modified files:              
    /loncom	LondConnection.pm 
  Log:
  - $socket already exists and has the same value
  
  
Index: loncom/LondConnection.pm
diff -u loncom/LondConnection.pm:1.41 loncom/LondConnection.pm:1.42
--- loncom/LondConnection.pm:1.41	Fri Aug 11 16:07:52 2006
+++ loncom/LondConnection.pm	Fri Aug 25 17:20:11 2006
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondConnection.pm,v 1.41 2006/08/11 20:07:52 albertel Exp $
+# $Id: LondConnection.pm,v 1.42 2006/08/25 21:20:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -297,8 +297,7 @@
 	    return undef;
 	}
 
-    }
-    else {
+    } else {
 	#  Remote peer:  I'd like to do ssl, but if my host key or certificates
 	#  are not all installed, my only choice is insecure, if that's 
 	#  allowed:
@@ -333,7 +332,6 @@
     #
     # Set socket to nonblocking I/O.
     #
-    my $socket = $self->{Socket};
     my $flags    = fcntl($socket, F_GETFL,0);
     if(!$flags) {
 	$socket->close;