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
> @@ -132,7 +132,7 @@
> $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 @raddr = ();
>
> 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.
