Update Socket from v2.029 to v2.030

Match recent release on CPAN

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 5721b37..64cfc79 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -976,7 +976,7 @@ use File::Glob qw(:case);
     },
 
     'Socket' => {
-        'DISTRIBUTION' => 'PEVANS/Socket-2.029.tar.gz',
+        'DISTRIBUTION' => 'PEVANS/Socket-2.030.tar.gz',
         'FILES'        => q[cpan/Socket],
     },
 

diff --git a/cpan/Socket/Socket.pm b/cpan/Socket/Socket.pm
index 2c6b5e4..f156699 100644 (file)
--- a/cpan/Socket/Socket.pm
+++ b/cpan/Socket/Socket.pm
@@ -1,9 +1,9 @@
 package Socket;
 
 use strict;
-{ use 5.006001; }
+{ use v5.6.1; }
 
-our $VERSION = '2.029';
+our $VERSION = '2.030';
 
 =head1 NAME
 

diff --git a/cpan/Socket/t/Socket.t b/cpan/Socket/t/Socket.t
index a73f6d4..6e9ca0e 100644 (file)
--- a/cpan/Socket/t/Socket.t
+++ b/cpan/Socket/t/Socket.t
@@ -1,5 +1,11 @@
 #!./perl
 
+use v5.6.1;
+use strict;
+use warnings;
+
+our %Config;
+my $has_alarm;
 BEGIN {
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bSocket\b/ && 
@@ -13,8 +19,8 @@ BEGIN {
 use Socket qw(:all);
 use Test::More tests => 6;
 
-$has_echo = $^O ne 'MSWin32';
-$alarmed = 0;
+my $has_echo = $^O ne 'MSWin32';
+my $alarmed = 0;
 sub arm      { $alarmed = 0; alarm(shift) if $has_alarm }
 sub alarmed  { $alarmed = 1 }
 $SIG{ALRM} = 'alarmed'                    if $has_alarm;
@@ -48,7 +54,8 @@ SKIP: {
        arm(0);
 
        arm(5);
-       $read = sysread(T,$buff,10);    # Connection may be granted, then closed!
+       my $buff;
+       my $read = sysread(T,$buff,10); # Connection may be granted, then closed!
        arm(0);
 
        while ($read > 0 && length($buff) < 5) {
@@ -87,7 +94,8 @@ SKIP: {
        arm(0);
 
        arm(5);
-       $read = sysread(S,$buff,10);    # Connection may be granted, then closed!
+       my $buff;
+       my $read = sysread(S,$buff,10); # Connection may be granted, then closed!
        arm(0);
 
        while ($read > 0 && length($buff) < 5) {

diff --git a/cpan/Socket/t/getaddrinfo.t b/cpan/Socket/t/getaddrinfo.t
index b33a3e7..971e516 100644 (file)
--- a/cpan/Socket/t/getaddrinfo.t
+++ b/cpan/Socket/t/getaddrinfo.t
@@ -1,3 +1,4 @@
+use v5.6.1;
 use strict;
 use warnings;
 use Test::More tests => 31;

diff --git a/cpan/Socket/t/getnameinfo.t b/cpan/Socket/t/getnameinfo.t
index c5655bc..9441fb4 100644 (file)
--- a/cpan/Socket/t/getnameinfo.t
+++ b/cpan/Socket/t/getnameinfo.t
@@ -1,3 +1,4 @@
+use v5.6.1;
 use strict;
 use warnings;
 use Test::More tests => 13;

diff --git a/cpan/Socket/t/ip_mreq.t b/cpan/Socket/t/ip_mreq.t
index 2ed7606..8711f99 100644 (file)
--- a/cpan/Socket/t/ip_mreq.t
+++ b/cpan/Socket/t/ip_mreq.t
@@ -1,3 +1,4 @@
+use v5.6.1;
 use strict;
 use warnings;
 use Test::More;

diff --git a/cpan/Socket/t/ipv6_mreq.t b/cpan/Socket/t/ipv6_mreq.t
index 1f0e122..080c332 100644 (file)
--- a/cpan/Socket/t/ipv6_mreq.t
+++ b/cpan/Socket/t/ipv6_mreq.t
@@ -1,3 +1,4 @@
+use v5.6.1;
 use strict;
 use warnings;
 use Test::More;

diff --git a/cpan/Socket/t/sockaddr.t b/cpan/Socket/t/sockaddr.t
index 9f17afb..395d96a 100644 (file)
--- a/cpan/Socket/t/sockaddr.t
+++ b/cpan/Socket/t/sockaddr.t
@@ -1,5 +1,6 @@
 #!./perl
 
+use v5.6.1;
 use strict;
 use warnings;
 

diff --git a/cpan/Socket/t/socketpair.t b/cpan/Socket/t/socketpair.t
index cb11e26..29c5f74 100644 (file)
--- a/cpan/Socket/t/socketpair.t
+++ b/cpan/Socket/t/socketpair.t
@@ -1,9 +1,14 @@
 #!./perl -w
 
+use v5.6.1;
+use strict;
+use warnings;
+
 my $child;
 my $can_fork;
 my $has_perlio;
 
+our %Config;
 BEGIN {
     require Config; import Config;
     $can_fork = $Config{'d_fork'} || $Config{'d_pseudofork'};