diff options
| author | Niko Tyni <ntyni@debian.org> | 2008-03-25 01:32:24 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-03-25 07:33:21 +0000 |
| commit | 7027b9a31bf80c5639c73f75155ed1a89c674c30 (patch) | |
| tree | 50b7c9151c71f3d2c24b2c6366dbaf2e9ef83660 /ext/IO | |
| parent | f175cff5cac5f8199b897ce2f1c73312d99d5761 (diff) | |
| download | perl-7027b9a31bf80c5639c73f75155ed1a89c674c30.tar.gz | |
IO::Socket::INET unnecessarily resolves "udp"
Message-Id: <1206394344-30835-1-git-send-email-ntyni@debian.org>
p4raw-id: //depot/perl@33554
Diffstat (limited to 'ext/IO')
| -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 f8bb33893e..2f0e5d1d7a 100644 --- a/ext/IO/lib/IO/Socket/INET.pm +++ b/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; |