PERL PERL5 PORTERS 20 RE BUG IN SOCKET IO INET VERSION 1 27

PERL PERL5 PORTERS 20 RE BUG IN SOCKET IO INET VERSION 1 27

Date: Fri, 18 Feb 2005 16:27:27 +0100

Subject: Re: Bug in Socket::IO::INET Version 1.27

From: rgarciasuarez@no-spam (Rafael Garcia-Suarez)

Gisle Aas wrote:
> > A better patch would probably be:
> > --- ext/IO/lib/IO/Socket/INET.pm.cur 2005-02-03 12:09:58.774436606 +0100
> +++ ext/IO/lib/IO/Socket/INET.pm 2005-02-03 12:10:16.011910233 +0100
> @@no-spam -132,7 +132,7 @@no-spam > $proto ||= (getprotobyname('tcp'))[2];
> > my $pname = (getprotobynumber($proto))[0];
> - $type = $arg->{Type} || $socket_type{$pname};
> + $type = $arg->{Type} || $socket_type{lc $pname};

Thanks, applied as change 23981 to bleadperl.

> my @no-spam = ();
> > but this really seems to be a local configuration error as I assume > Solaris machines do not ship with an upcased tcp entry in > /etc/protocols. It might be better to simply fix /etc/protocols on > those machines where this fails.