From b43fc6a1c1224963b2a2430029a638a4294147d0 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Wed, 15 Aug 2012 23:59:29 +0100 Subject: [PATCH] Upgrade Socket to 2.004 --- Porting/Maintainers.pl | 2 +- cpan/Socket/Socket.pm | 2 +- cpan/Socket/t/ip_mreq.t | 2 +- pod/perldelta.pod | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 54ed2e6..9109dfd 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1640,7 +1640,7 @@ use File::Glob qw(:case); 'Socket' => { 'MAINTAINER' => 'pevans', - 'DISTRIBUTION' => 'PEVANS/Socket-2.003.tar.gz', + 'DISTRIBUTION' => 'PEVANS/Socket-2.004.tar.gz', 'FILES' => q[cpan/Socket], 'UPSTREAM' => 'cpan', }, diff --git a/cpan/Socket/Socket.pm b/cpan/Socket/Socket.pm index d9bbfae..83729b2 100644 --- a/cpan/Socket/Socket.pm +++ b/cpan/Socket/Socket.pm @@ -3,7 +3,7 @@ package Socket; use strict; { use 5.006001; } -our $VERSION = '2.003'; +our $VERSION = '2.004'; =head1 NAME diff --git a/cpan/Socket/t/ip_mreq.t b/cpan/Socket/t/ip_mreq.t index 2a99509..2ed7606 100644 --- a/cpan/Socket/t/ip_mreq.t +++ b/cpan/Socket/t/ip_mreq.t @@ -31,7 +31,7 @@ is( (unpack_ip_mreq pack_ip_mreq "\xe0\0\0\1")[1], INADDR_ANY, 'pack_ip_mreq int SKIP: { my $mreq; - skip 3, "No pack_ip_mreq_source" unless defined eval { $mreq = pack_ip_mreq_source "\xe0\0\0\2", "\x0a\0\0\1", INADDR_ANY }; + skip "No pack_ip_mreq_source", 3 unless defined eval { $mreq = pack_ip_mreq_source "\xe0\0\0\2", "\x0a\0\0\1", INADDR_ANY }; @unpacked = unpack_ip_mreq_source $mreq; diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 59f4e4a..3765239 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -213,7 +213,7 @@ brackets, i.e. C or C. =item * -L has been upgraded from version 2.002 to 2.003. Constants and +L has been upgraded from version 2.002 to 2.004. Constants and functions required for IP multicast source group membership have been added. =item * -- 2.7.4