[LON-CAPA-cvs] cvs: loncom / loncnew

[albertel]

albertel		Wed Apr 11 12:20:29 2007 EDT

  Modified files:              
    /loncom	loncnew 
  Log:
  - vcu was seeing this error condition occur, catch and exit in this case as 
    somethign has gone awry
  
  
Index: loncom/loncnew
diff -u loncom/loncnew:1.83 loncom/loncnew:1.84
--- loncom/loncnew:1.83	Tue Apr 10 20:10:45 2007
+++ loncom/loncnew	Wed Apr 11 12:20:26 2007
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.83 2007/04/11 00:10:45 albertel Exp $
+# $Id: loncnew,v 1.84 2007/04/11 16:20:26 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -502,6 +502,9 @@
 sub ClientWritable {
     my $Event    = shift;
     my $Watcher  = $Event->w;
+    if (!defined($Watcher)) {
+	&child_exit(-1,'No watcher for event in ClientWritable');
+    }
     my $Data     = $Watcher->data;
     my $Socket   = $Watcher->fd;
 
@@ -565,6 +568,7 @@
 	}
     } else {
 	$Watcher->cancel();	# A delayed request...just cancel.
+	return;
     }
 }