loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

version 1.7, 2003/07/02 01:12:35	version 1.8, 2003/08/03 00:45:54
Line 153 sub new {	Line 153 sub new {
unless ($self->{Socket} = IO::Socket::INET->new(PeerHost => $self->{Host},	unless ($self->{Socket} = IO::Socket::INET->new(PeerHost => $self->{Host},
PeerPort => $self->{Port},	PeerPort => $self->{Port},
Type => SOCK_STREAM,	Type => SOCK_STREAM,
Proto => "tcp")) {	Proto => "tcp",
	Timeout => 5)) {
return undef; # Inidicates the socket could not be made.	return undef; # Inidicates the socket could not be made.
}	}
#	#
Line 215 sub Readable {	Line 216 sub Readable {
my $rv = $socket->recv($data, POSIX::BUFSIZ, 0);	my $rv = $socket->recv($data, POSIX::BUFSIZ, 0);
my $errno = $! + 0; # Force numeric context.	my $errno = $! + 0; # Force numeric context.

unless (defined($rv) && (length($data)> 0)) {# Read failed,	unless (defined($rv) && length $data) {# Read failed,
if(($errno == POSIX::EWOULDBLOCK) \|\|	if(($errno == POSIX::EWOULDBLOCK) \|\|
($errno == POSIX::EAGAIN) \|\|	($errno == POSIX::EAGAIN) \|\|
($errno == POSIX::EINTR) \|\|	($errno == POSIX::EINTR)) {
($errno == 0)) {
return 0;	return 0;
}	}