loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

-version 1.24, 2004/02/09 10:57:37
+version 1.27, 2004/03/02 11:14:38
  Line 279  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,
- Line 413  Returns  0 if successful, or -1 if not.
+ Line 421  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) {