head	1.2;
access;
symbols
	old_RELEASE_7_2_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2009.09.11.11.23.30;	author skv;	state dead;
branches;
next	1.1;

1.1
date	2009.04.04.09.06.53;	author skv;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Update to 5.10.1

Changes:	http://search.cpan.org/~dapm/perl-5.10.1/pod/perl5101delta.pod
@
text
@# 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;
 
@


1.1
log
@Add several bugfixes, imported from maint-5.10
(i.e. will be included into forthcoming 5.10.1).
@
text
@@

