Upgrade Socket to 2.004

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 54ed2e6..9109dfd 100755 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -213,7 +213,7 @@ brackets, i.e. C</s/> or C</s/i>.
 
 =item *
 
-L<Socket> has been upgraded from version 2.002 to 2.003.  Constants and
+L<Socket> has been upgraded from version 2.002 to 2.004.  Constants and
 functions required for IP multicast source group membership have been added.
 
 =item *