This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Socket from v2.029 to v2.030
authorNicolas R <atoomic@cpan.org>
Tue, 7 Jul 2020 20:15:16 +0000 (14:15 -0600)
committerNicolas R <nicolas@atoomic.org>
Fri, 17 Jul 2020 21:33:50 +0000 (15:33 -0600)
Match recent release on CPAN

Porting/Maintainers.pl
cpan/Socket/Socket.pm
cpan/Socket/t/Socket.t
cpan/Socket/t/getaddrinfo.t
cpan/Socket/t/getnameinfo.t
cpan/Socket/t/ip_mreq.t
cpan/Socket/t/ipv6_mreq.t
cpan/Socket/t/sockaddr.t
cpan/Socket/t/socketpair.t

index 5721b37..64cfc79 100755 (executable)
@@ -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],
     },
 
index 2c6b5e4..f156699 100644 (file)
@@ -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
 
index a73f6d4..6e9ca0e 100644 (file)
@@ -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) {
index b33a3e7..971e516 100644 (file)
@@ -1,3 +1,4 @@
+use v5.6.1;
 use strict;
 use warnings;
 use Test::More tests => 31;
index c5655bc..9441fb4 100644 (file)
@@ -1,3 +1,4 @@
+use v5.6.1;
 use strict;
 use warnings;
 use Test::More tests => 13;
index 2ed7606..8711f99 100644 (file)
@@ -1,3 +1,4 @@
+use v5.6.1;
 use strict;
 use warnings;
 use Test::More;
index 1f0e122..080c332 100644 (file)
@@ -1,3 +1,4 @@
+use v5.6.1;
 use strict;
 use warnings;
 use Test::More;
index 9f17afb..395d96a 100644 (file)
@@ -1,5 +1,6 @@
 #!./perl
 
+use v5.6.1;
 use strict;
 use warnings;
 
index cb11e26..29c5f74 100644 (file)
@@ -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'};