diff options
| author | Gisle Aas <gisle@aas.no> | 2005-02-02 19:16:46 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-02-18 15:00:12 +0000 |
| commit | b2118e7e233f26626887786dffd133bfb7222840 (patch) | |
| tree | 1271ac00f5699e17d6311f06cbc18549dd508487 /ext | |
| parent | de1df517ca68355fb7159ab70e45aba850241758 (diff) | |
| download | perl-b2118e7e233f26626887786dffd133bfb7222840.tar.gz | |
Re: Bug in Socket::IO::INET Version 1.27
Message-ID: <lr7jlpsxk1.fsf@caliper.activestate.com>
p4raw-id: //depot/perl@23981
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Socket/INET.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm index ce3435fe06..6e4c32c78f 100644 --- a/ext/IO/lib/IO/Socket/INET.pm +++ b/ext/IO/lib/IO/Socket/INET.pm @@ -132,7 +132,7 @@ sub configure { $proto ||= (getprotobyname('tcp'))[2]; my $pname = (getprotobynumber($proto))[0]; - $type = $arg->{Type} || $socket_type{$pname}; + $type = $arg->{Type} || $socket_type{lc $pname}; my @raddr = (); |