Update Socket from v2.029 to v2.030

Match recent release on CPAN

8 files changed, 24 insertions, 6 deletions

diff --git a/cpan/Socket/Socket.pm b/cpan/Socket/Socket.pm
index 2c6b5e45d0..f156699d05 100644
--- 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 a73f6d4da5..6e9ca0ee48 100644
--- 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 b33a3e7c6e..971e51679e 100644
--- 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 c5655bc4e6..9441fb48eb 100644
--- 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 2ed76062c1..8711f99640 100644
--- 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 1f0e122660..080c332efd 100644
--- 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 9f17afb98f..395d96af7f 100644
--- 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 cb11e26e55..29c5f74cce 100644
--- 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'};