--- loncom/LondConnection.pm	2004/02/09 10:57:37	1.24
+++ loncom/LondConnection.pm	2004/03/02 11:14:38	1.27
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondConnection.pm,v 1.24 2004/02/09 10:57:37 foxr Exp $
+# $Id: LondConnection.pm,v 1.27 2004/03/02 11:14:38 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -279,7 +279,15 @@ sub Readable {
     my $self    = shift;
     my $socket  = $self->{Socket};
     my $data    = '';
-    my $rv      = $socket->recv($data, POSIX::BUFSIZ,  0);
+    my $rv;
+    if ($socket) {
+	eval {
+	    $rv = $socket->recv($data, POSIX::BUFSIZ, 0);
+	}
+    } else {
+	$self->Transition("Disconnected");
+	return -1;
+    }
     my $errno   = $! + 0;	             # Force numeric context.
 
     unless (defined($rv) && length $data) {# Read failed,
@@ -413,7 +421,18 @@ Returns  0 if successful, or -1 if not.
 sub Writable {
     my $self     = shift;		# Get reference to the object.
     my $socket   = $self->{Socket};
-    my $nwritten = $socket->send($self->{TransactionRequest}, 0);
+    my $nwritten;
+    if ($socket) {
+	eval {
+	    $nwritten = $socket->send($self->{TransactionRequest}, 0);
+	}
+    } else {
+	# For whatever reason, there's no longer a socket left.
+
+
+	$self->Transition("Disconnected");
+	return -1;
+    }
     my $errno    = $! + 0;
     unless (defined $nwritten) {
 	if($errno != POSIX::EINTR) {