diff options
Diffstat (limited to 'lang/perl5.10/files/patch-IO-Socket-INET-udp')
| -rw-r--r-- | lang/perl5.10/files/patch-IO-Socket-INET-udp | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lang/perl5.10/files/patch-IO-Socket-INET-udp b/lang/perl5.10/files/patch-IO-Socket-INET-udp new file mode 100644 index 000000000000..2c0ff86f110a --- /dev/null +++ b/lang/perl5.10/files/patch-IO-Socket-INET-udp @@ -0,0 +1,14 @@ +# http://perl5.git.perl.org/perl.git/commitdiff/7027b9a31bf80c5639c73f75155ed1a89c674c30?hp=f175cff5cac5f8199b897ce2f1c73312d99d5761 +diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm +index f8bb338..2f0e5d1 100644 +--- ext/IO/lib/IO/Socket/INET.pm ++++ ext/IO/lib/IO/Socket/INET.pm +@@ -27,7 +27,7 @@ my %socket_type = ( tcp => SOCK_STREAM, + ); + my %proto_number; + $proto_number{tcp} = Socket::IPPROTO_TCP() if defined &Socket::IPPROTO_TCP; +-$proto_number{upd} = Socket::IPPROTO_UDP() if defined &Socket::IPPROTO_UDP; ++$proto_number{udp} = Socket::IPPROTO_UDP() if defined &Socket::IPPROTO_UDP; + $proto_number{icmp} = Socket::IPPROTO_ICMP() if defined &Socket::IPPROTO_ICMP; + my %proto_name = reverse %proto_number; + |