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

[p5sagit/p5-mst-13.2.git] / ext / IO / lib / IO / Socket / INET.pm

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 = ();