projects / platform / upstream / perl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: de1df51)
Re: Bug in Socket::IO::INET Version 1.27
authorGisle Aas <gisle@aas.no>
Thu, 3 Feb 2005 03:16:46 +0000 (19:16 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 18 Feb 2005 15:00:12 +0000 (15:00 +0000)
Message-ID: <lr7jlpsxk1.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@23981

ext/IO/lib/IO/Socket/INET.pm patch | blob | history

diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm
index ce3435f..6e4c32c 100644 (file)
--- 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 = ();
 
Domain: System / Base;