loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

version 1.15, 2001/03/15 20:25:20	version 1.16, 2001/06/12 15:32:38
Line 16	Line 16
# 12/05 Scott Harrison	# 12/05 Scott Harrison
# 12/05 Gerd Kortemeyer	# 12/05 Gerd Kortemeyer
# 01/10/01 Scott Harrison	# 01/10/01 Scott Harrison
# 03/14/01,03/15 Gerd Kortemeyer	# 03/14/01,03/15,06/12 Gerd Kortemeyer
#	#
# based on nonforker from Perl Cookbook	# based on nonforker from Perl Cookbook
# - server who multiplexes without forking	# - server who multiplexes without forking
Line 394 while (1) {	Line 394 while (1) {
# check for new information on the connections we have	# check for new information on the connections we have

# anything to read or accept?	# anything to read or accept?
foreach $client ($select->can_read(1)) {	foreach $client ($select->can_read(0.1)) {

if ($client == $server) {	if ($client == $server) {
# accept a new connection	# accept a new connection