loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

version 1.19, 2003/12/08 20:32:17	version 1.20, 2003/12/11 23:16:06
Line 562 Shuts down the socket.	Line 562 Shuts down the socket.
sub Shutdown {	sub Shutdown {
my $self = shift;	my $self = shift;
my $socket = $self->GetSocket();	my $socket = $self->GetSocket();
$socket->send("exit\n", 0); # Ask lond to exit too. Non blocking so	Debug(5,"socket is -$socket-");
# there's no cost for failure.	if ($socket) {
$socket->shutdown(2);	# Ask lond to exit too. Non blocking so
	# there is no cost for failure.
	eval {
	$socket->send("exit\n", 0);
	$socket->shutdown(2);
	}
	}
}	}

=pod	=pod