loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

version 1.37, 2002/04/04 21:55:55	version 1.38, 2002/04/04 22:04:54
Line 512 sub HandleInput	Line 512 sub HandleInput
my $ready = shift;	my $ready = shift;
my $sock;	my $sock;

&logthis("Entered HandleInput\n");	if($DEBUG) {
	&logthis("Entered HandleInput\n");
	}
foreach $sock (keys %$sockets) {	foreach $sock (keys %$sockets) {
my $socket = $sockets->{$sock};	my $socket = $sockets->{$sock};
if(vec($selvec, $sock, 1)) { # Socket which is readable.	if(vec($selvec, $sock, 1)) { # Socket which is readable.