diff options
author | Nicolas R <atoomic@cpan.org> | 2020-07-07 14:15:16 -0600 |
---|---|---|
committer | Nicolas R <nicolas@atoomic.org> | 2020-07-17 15:33:50 -0600 |
commit | 8bb05de3031ac68bdf417cb36eda24af8158bccc (patch) | |
tree | 4cc5df438bdd6986d02264b445ce8b17b684e42f /cpan/Socket | |
parent | c74be7ad66177690ed467e1807a6366d576f6a18 (diff) | |
download | perl-8bb05de3031ac68bdf417cb36eda24af8158bccc.tar.gz |
Update Socket from v2.029 to v2.030
Match recent release on CPAN
Diffstat (limited to 'cpan/Socket')
-rw-r--r-- | cpan/Socket/Socket.pm | 4 | ||||
-rw-r--r-- | cpan/Socket/t/Socket.t | 16 | ||||
-rw-r--r-- | cpan/Socket/t/getaddrinfo.t | 1 | ||||
-rw-r--r-- | cpan/Socket/t/getnameinfo.t | 1 | ||||
-rw-r--r-- | cpan/Socket/t/ip_mreq.t | 1 | ||||
-rw-r--r-- | cpan/Socket/t/ipv6_mreq.t | 1 | ||||
-rw-r--r-- | cpan/Socket/t/sockaddr.t | 1 | ||||
-rw-r--r-- | cpan/Socket/t/socketpair.t | 5 |
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'}; |