diff -Nru libio-socket-ip-perl-0.39/Build.PL libio-socket-ip-perl-0.41/Build.PL
--- libio-socket-ip-perl-0.39/Build.PL	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/Build.PL	2020-09-15 16:05:50.000000000 +0000
@@ -1,3 +1,4 @@
+use v5;
 use strict;
 use warnings;
 
@@ -9,12 +10,13 @@
       'IO::Socket' => 0,
       'Socket' => '1.97',
    },
-   build_requires => {
+   test_requires => {
       'Test::More' => '0.88', # done_testing
    },
-   auto_configure_requires => 0, # Don't add M::B to configure_requires
+   configure_requires => {
+      'Module::Build' => '0.4004', # test_requires
+   },
    license => 'perl',
-   create_makefile_pl => 'traditional',
    create_license => 1,
    create_readme  => 1,
 );
diff -Nru libio-socket-ip-perl-0.39/Changes libio-socket-ip-perl-0.41/Changes
--- libio-socket-ip-perl-0.39/Changes	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/Changes	2020-09-15 16:05:50.000000000 +0000
@@ -1,8 +1,23 @@
 Revision history for IO-Socket-IP
 
+0.41    2020-09-15 16:59
+        [CHANGES]
+         * Updated to `=head2 barename` documentation style
+
+        [BUGFIXES]
+         * Remember to declare configure_requires Module::Build
+
+0.40    2020-09-15 16:41
+        [CHANGES]
+         * Don't ship a Makefile.PL
+         * Updated docs about `-register` option
+
+        [BUGFIXES]
+         * Ensure safety under default-strict (RT133322)
+
 0.39    2017/03/06 16:40:30
         [BUGFIXES]
-         * Handle EOPNOTSUPP in resposne of efforts to disable V6ONLY
+         * Handle EOPNOTSUPP in response of efforts to disable V6ONLY
            (RT119780) (thanks XENU)
 
 0.38    2016/08/02 18:33:50
diff -Nru libio-socket-ip-perl-0.39/debian/changelog libio-socket-ip-perl-0.41/debian/changelog
--- libio-socket-ip-perl-0.39/debian/changelog	2020-06-02 20:56:46.000000000 +0000
+++ libio-socket-ip-perl-0.41/debian/changelog	2020-09-26 23:22:57.000000000 +0000
@@ -1,3 +1,25 @@
+libio-socket-ip-perl (0.41-1) unstable; urgency=medium
+
+  * Import upstream version 0.41.
+    Fixes "do not release with bullseye": this release is newer than the
+    bundled version in src:perl. (Closes: #969768)
+  * Update years of upstream and packaging copyright.
+  * Declare compliance with Debian Policy 4.5.0.
+  * Set Rules-Requires-Root: no.
+  * Annotate test-only build dependencies with <!nocheck>.
+  * Bump debhelper-compat to 13.
+  * Refresh patches (offset).
+  * Use HTTPS for repository URL in debian/upstream/metadata.
+
+ -- gregor herrmann <gregoa@debian.org>  Sun, 27 Sep 2020 01:22:57 +0200
+
+libio-socket-ip-perl (0.39-3) unstable; urgency=medium
+
+  * Replace nov4 test patch with one from Niko Tyni which works around
+    the underlying issue (Closes: #964902)
+
+ -- Dominic Hargreaves <dom@earth.li>  Mon, 07 Sep 2020 23:45:37 +0100
+
 libio-socket-ip-perl (0.39-2) unstable; urgency=medium
 
   [ Damyan Ivanov ]
diff -Nru libio-socket-ip-perl-0.39/debian/control libio-socket-ip-perl-0.41/debian/control
--- libio-socket-ip-perl-0.39/debian/control	2020-06-02 19:27:51.000000000 +0000
+++ libio-socket-ip-perl-0.41/debian/control	2020-09-26 23:22:57.000000000 +0000
@@ -7,16 +7,17 @@
 Section: perl
 Testsuite: autopkgtest-pkg-perl
 Priority: optional
-Build-Depends: debhelper-compat (= 12),
+Build-Depends: debhelper-compat (= 13),
                libmodule-build-perl
-Build-Depends-Indep: libio-socket-inet6-perl,
-                     libtest-pod-perl,
-                     netbase,
+Build-Depends-Indep: libio-socket-inet6-perl <!nocheck>,
+                     libtest-pod-perl <!nocheck>,
+                     netbase <!nocheck>,
                      perl
-Standards-Version: 4.1.3
+Standards-Version: 4.5.0
 Vcs-Browser: https://salsa.debian.org/perl-team/modules/packages/libio-socket-ip-perl
 Vcs-Git: https://salsa.debian.org/perl-team/modules/packages/libio-socket-ip-perl.git
 Homepage: https://metacpan.org/release/IO-Socket-IP
+Rules-Requires-Root: no
 
 Package: libio-socket-ip-perl
 Architecture: all
diff -Nru libio-socket-ip-perl-0.39/debian/copyright libio-socket-ip-perl-0.41/debian/copyright
--- libio-socket-ip-perl-0.39/debian/copyright	2020-06-02 19:27:51.000000000 +0000
+++ libio-socket-ip-perl-0.41/debian/copyright	2020-09-26 23:22:57.000000000 +0000
@@ -4,12 +4,12 @@
 Source: https://metacpan.org/release/IO-Socket-IP
 
 Files: *
-Copyright: 2010-2017, Paul Evans <leonerd@leonerd.org.uk>
+Copyright: 2010-2020, Paul Evans <leonerd@leonerd.org.uk>
 License: Artistic or GPL-1+
 
 Files: debian/*
 Copyright: 2011-2017, Salvatore Bonaccorso <carnil@debian.org>
- 2011-2016, gregor herrmann <gregoa@debian.org>
+ 2011-2020, gregor herrmann <gregoa@debian.org>
  2012, intrigeri <intrigeri@debian.org>
  2013, Dominique Dumont <dod@debian.org>
  2012-2014, Xavier Guimard <yadd@debian.org>
diff -Nru libio-socket-ip-perl-0.39/debian/patches/0001-Disable-getaddrinfo-3-AI_ADDRCONFIG-for-localhost-an.patch libio-socket-ip-perl-0.41/debian/patches/0001-Disable-getaddrinfo-3-AI_ADDRCONFIG-for-localhost-an.patch
--- libio-socket-ip-perl-0.39/debian/patches/0001-Disable-getaddrinfo-3-AI_ADDRCONFIG-for-localhost-an.patch	1970-01-01 00:00:00.000000000 +0000
+++ libio-socket-ip-perl-0.41/debian/patches/0001-Disable-getaddrinfo-3-AI_ADDRCONFIG-for-localhost-an.patch	2020-09-26 23:22:57.000000000 +0000
@@ -0,0 +1,87 @@
+From: Niko Tyni <ntyni@debian.org>
+Date: Sat, 4 Jul 2020 22:17:41 +0100
+Subject: [PATCH] Disable getaddrinfo(3) AI_ADDRCONFIG for localhost and IPv4
+ numeric addresses
+
+AI_ADDRCONFIG can be a bad default for systems with a dual protocol
+loopback device but just IPv6 connectivity. In such a case,
+getaddrinfo(3) on 127.0.0.1 or 0.0.0.0 will fail with EAI_ADDRFAMILY
+even though the loopback device is able to handle them.
+
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=132760
+---
+ lib/IO/Socket/IP.pm | 24 +++++++++++++++++++++---
+ 1 file changed, 21 insertions(+), 3 deletions(-)
+
+--- a/lib/IO/Socket/IP.pm
++++ b/lib/IO/Socket/IP.pm
+@@ -33,6 +33,7 @@ use Socket 1.97 qw(
+ );
+ my $AF_INET6 = eval { Socket::AF_INET6() }; # may not be defined
+ my $AI_ADDRCONFIG = eval { Socket::AI_ADDRCONFIG() } || 0;
++my $AI_NUMERICHOST = eval { Socket::AI_NUMERICHOST() } || 0;
+ use POSIX qw( dup2 );
+ use Errno qw( EINVAL EINPROGRESS EISCONN ENOTCONN ETIMEDOUT EWOULDBLOCK EOPNOTSUPP );
+ 
+@@ -415,6 +416,8 @@ sub _io_socket_ip__configure
+    my ( $arg ) = @_;
+ 
+    my %hints;
++   my $localflags;
++   my $peerflags;
+    my @localinfos;
+    my @peerinfos;
+ 
+@@ -426,9 +429,20 @@ sub _io_socket_ip__configure
+ 
+    if( defined $arg->{GetAddrInfoFlags} ) {
+       $hints{flags} = $arg->{GetAddrInfoFlags};
++      $localflags  = $arg->{GetAddrInfoFlags};
++      $peerflags  = $arg->{GetAddrInfoFlags};
+    }
+    else {
+-      $hints{flags} = $AI_ADDRCONFIG;
++      if (defined $arg->{LocalHost} and $arg->{LocalHost} =~ /^\d+\.\d+\.\d+\.\d+$/) {
++              $localflags = $AI_NUMERICHOST;
++      } else {
++              $localflags = $AI_ADDRCONFIG;
++      }
++      if (defined $arg->{PeerHost} and $arg->{PeerHost} =~ /^\d+\.\d+\.\d+\.\d+$/) {
++              $peerflags = $AI_NUMERICHOST;
++      } elsif (defined $arg->{PeerHost} and $arg->{PeerHost} ne 'localhost') {
++              $peerflags = $AI_ADDRCONFIG;
++      }
+    }
+ 
+    if( defined( my $family = $arg->{Family} ) ) {
+@@ -485,6 +499,7 @@ sub _io_socket_ip__configure
+          my $fallback_port = $1;
+ 
+       my %localhints = %hints;
++      $localhints{flags} = $localflags;
+       $localhints{flags} |= AI_PASSIVE;
+       ( my $err, @localinfos ) = getaddrinfo( $host, $service, \%localhints );
+ 
+@@ -513,10 +528,12 @@ sub _io_socket_ip__configure
+       defined $service and $service =~ s/\((\d+)\)$// and
+          my $fallback_port = $1;
+ 
+-      ( my $err, @peerinfos ) = getaddrinfo( $host, $service, \%hints );
++      my %peerhints = %hints;
++      $peerhints{flags} = $peerflags;
++      ( my $err, @peerinfos ) = getaddrinfo( $host, $service, \%peerhints );
+ 
+       if( $err and defined $fallback_port ) {
+-         ( $err, @peerinfos ) = getaddrinfo( $host, $fallback_port, \%hints );
++         ( $err, @peerinfos ) = getaddrinfo( $host, $fallback_port, \%peerhints );
+       }
+ 
+       if( $err ) {
+@@ -596,6 +613,7 @@ sub _io_socket_ip__configure
+       # If there wasn't, use getaddrinfo()'s AI_ADDRCONFIG side-effect to guess a
+       # suitable family first.
+       else {
++         $hints{flags} |= $AI_ADDRCONFIG;
+          ( my $err, @infos ) = getaddrinfo( "", "0", \%hints );
+          if( $err ) {
+             $@ = "$err";
diff -Nru libio-socket-ip-perl-0.39/debian/patches/nov4 libio-socket-ip-perl-0.41/debian/patches/nov4
--- libio-socket-ip-perl-0.39/debian/patches/nov4	2020-06-02 20:50:27.000000000 +0000
+++ libio-socket-ip-perl-0.41/debian/patches/nov4	1970-01-01 00:00:00.000000000 +0000
@@ -1,270 +0,0 @@
-From: Dominic Hargreaves <dom@earth.li>
-Date: Tue, 2 Jun 2020 20:56:42 +0100
-Subject: Fix test failures with an IPv6-only host
-
-This can be tested with:
-
-    # unshare -n
-    # ip li set lo up
-    # ip li add dummy0 type dummy
-    # ip li set dummy0 up
-
-Thanks to Julien Cristau and Niko Tyni for contributing the basis
-of the patch and test instructions.
-
-Bug-Debian: https://bugs.debian.org/962047
-Forwarded: https://rt.cpan.org/Ticket/Display.html?id=132760
----
- t/01local-client-v4.t     | 4 +++-
- t/02local-server-v4.t     | 3 ++-
- t/03local-cross-v4.t      | 3 +++
- t/11sockopts.t            | 6 +++++-
- t/18fdopen.t              | 3 ++-
- t/20subclass.t            | 3 +++
- t/21as-inet.t             | 3 +++
- t/22timeout.t             | 3 +++
- t/30nonblocking-connect.t | 4 +++-
- 9 files changed, 27 insertions(+), 5 deletions(-)
-
-diff --git a/t/01local-client-v4.t b/t/01local-client-v4.t
-index 7ab7156..f6aeac4 100644
---- a/t/01local-client-v4.t
-+++ b/t/01local-client-v4.t
-@@ -8,7 +8,7 @@ use Test::More;
- use IO::Socket::IP;
- 
- use IO::Socket::INET;
--use Socket qw( inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in );
-+use Socket qw( inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in AI_NUMERICHOST );
- 
- # Some odd locations like BSD jails might not like INADDR_LOOPBACK. We'll
- # establish a baseline first to test against
-@@ -29,12 +29,14 @@ foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) {
-       LocalHost => "127.0.0.1",
-       Type      => Socket->$socktype,
-       Proto     => ( $socktype eq "SOCK_STREAM" ? "tcp" : "udp" ), # Because IO::Socket::INET is stupid and always presumes tcp
-+      GetAddrInfoFlags => AI_NUMERICHOST,
-    ) or die "Cannot listen on PF_INET - $@";
- 
-    my $socket = IO::Socket::IP->new(
-       PeerHost    => "127.0.0.1",
-       PeerService => $testserver->sockport,
-       Type        => Socket->$socktype,
-+      GetAddrInfoFlags => AI_NUMERICHOST,
-    );
- 
-    ok( defined $socket, "IO::Socket::IP->new constructs a $socktype socket" ) or
-diff --git a/t/02local-server-v4.t b/t/02local-server-v4.t
-index c0d349f..fb711f0 100644
---- a/t/02local-server-v4.t
-+++ b/t/02local-server-v4.t
-@@ -8,7 +8,7 @@ use Test::More;
- use IO::Socket::IP;
- 
- use IO::Socket::INET;
--use Socket qw( inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in );
-+use Socket qw( inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in AI_NUMERICHOST );
- 
- # Some odd locations like BSD jails might not like INADDR_LOOPBACK. We'll
- # establish a baseline first to test against
-@@ -29,6 +29,7 @@ foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) {
-       LocalHost => "127.0.0.1",
-       LocalPort => "0",
-       Type      => Socket->$socktype,
-+      GetAddrInfoFlags => AI_NUMERICHOST,
-    );
- 
-    ok( defined $testserver, "IO::Socket::IP->new constructs a $socktype socket" ) or
-diff --git a/t/03local-cross-v4.t b/t/03local-cross-v4.t
-index 8cac72a..3e8174e 100644
---- a/t/03local-cross-v4.t
-+++ b/t/03local-cross-v4.t
-@@ -6,6 +6,7 @@ use warnings;
- use Test::More;
- 
- use IO::Socket::IP;
-+use Socket qw(AI_NUMERICHOST);
- 
- foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) {
-    my $testserver = IO::Socket::IP->new(
-@@ -13,12 +14,14 @@ foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) {
-       LocalHost => "127.0.0.1",
-       LocalPort => "0",
-       Type      => Socket->$socktype,
-+      GetAddrInfoFlags => AI_NUMERICHOST,
-    ) or die "Cannot listen on PF_INET - $@";
- 
-    my $socket = IO::Socket::IP->new(
-       PeerHost    => "127.0.0.1",
-       PeerService => $testserver->sockport,
-       Type        => Socket->$socktype,
-+      GetAddrInfoFlags => AI_NUMERICHOST,
-    ) or die "Cannot connect on PF_INET - $@";
- 
-    my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 
-diff --git a/t/11sockopts.t b/t/11sockopts.t
-index 5b85092..28daada 100644
---- a/t/11sockopts.t
-+++ b/t/11sockopts.t
-@@ -8,7 +8,7 @@ use Test::More;
- use IO::Socket::IP;
- 
- use Errno qw( EACCES );
--use Socket qw( SOL_SOCKET SO_REUSEADDR SO_REUSEPORT SO_BROADCAST );
-+use Socket qw( SOL_SOCKET SO_REUSEADDR SO_REUSEPORT SO_BROADCAST AI_NUMERICHOST);
- 
- TODO: {
-    local $TODO = "SO_REUSEADDR doesn't appear to work on cygwin smokers" if $^O eq "cygwin";
-@@ -21,6 +21,7 @@ TODO: {
-       Type      => SOCK_STREAM,
-       Listen    => 1,
-       ReuseAddr => 1,
-+      GetAddrInfoFlags => AI_NUMERICHOST,
-    ) or die "Cannot socket() - $@";
- 
-    ok( $sock->getsockopt( SOL_SOCKET, SO_REUSEADDR ), 'SO_REUSEADDR set' );
-@@ -32,6 +33,7 @@ TODO: {
-       Sockopts  => [
-          [ SOL_SOCKET, SO_REUSEADDR ],
-       ],
-+      GetAddrInfoFlags => AI_NUMERICHOST,
-    ) or die "Cannot socket() - $@";
- 
-    ok( $sock->getsockopt( SOL_SOCKET, SO_REUSEADDR ), 'SO_REUSEADDR set via Sockopts' );
-@@ -50,6 +52,7 @@ SKIP: {
-       Type      => SOCK_STREAM,
-       Listen    => 1,
-       ReusePort => 1,
-+      GetAddrInfoFlags => AI_NUMERICHOST,
-    ) or die "Cannot socket() - $@";
- 
-    ok( $sock->getsockopt( SOL_SOCKET, SO_REUSEPORT ), 'SO_REUSEPORT set' );
-@@ -62,6 +65,7 @@ SKIP: {
-       LocalHost => "127.0.0.1",
-       Type      => SOCK_DGRAM,
-       Broadcast => 1,
-+      GetAddrInfoFlags => AI_NUMERICHOST,
-    );
-    skip "Privileges required to set broadcast on datagram socket", 1 if !$sock and $! == EACCES;
-    die "Cannot socket() - $@" unless $sock;
-diff --git a/t/18fdopen.t b/t/18fdopen.t
-index 20cbe46..6843a2c 100644
---- a/t/18fdopen.t
-+++ b/t/18fdopen.t
-@@ -6,12 +6,13 @@ use warnings;
- use Test::More;
- 
- use IO::Socket::IP;
--use Socket qw( SOCK_STREAM );
-+use Socket qw( SOCK_STREAM AI_NUMERICHOST );
- 
- my $s1 = IO::Socket::IP->new(
-    LocalHost => "127.0.0.1",
-    Type      => SOCK_STREAM,
-    Listen    => 1,
-+   GetAddrInfoFlags => AI_NUMERICHOST,
- ) or die "Cannot listen on AF_INET - $@";
- 
- my $s2 = IO::Socket::IP->new;
-diff --git a/t/20subclass.t b/t/20subclass.t
-index 231bd52..fbc9cff 100644
---- a/t/20subclass.t
-+++ b/t/20subclass.t
-@@ -6,16 +6,19 @@ use warnings;
- use Test::More;
- 
- use IO::Socket::IP;
-+use Socket qw( AI_NUMERICHOST );
- 
- my $server = IO::Socket::IP->new(
-    Listen    => 1,
-    LocalHost => "127.0.0.1",
-    LocalPort => 0,
-+   GetAddrInfoFlags => AI_NUMERICHOST,
- ) or die "Cannot listen on PF_INET - $!";
- 
- my $client = IO::Socket::IP->new(
-    PeerHost => $server->sockhost,
-    PeerPort => $server->sockport,
-+   GetAddrInfoFlags => AI_NUMERICHOST,
- ) or die "Cannot connect on PF_INET - $!";
- 
- my $accepted = $server->accept( 'MySubclass' )
-diff --git a/t/21as-inet.t b/t/21as-inet.t
-index 2b8713d..fedb8be 100644
---- a/t/21as-inet.t
-+++ b/t/21as-inet.t
-@@ -6,16 +6,19 @@ use warnings;
- use Test::More;
- 
- use IO::Socket::IP;
-+use Socket qw( AI_NUMERICHOST );
- 
- my $server = IO::Socket::IP->new(
-    Listen    => 1,
-    LocalHost => "127.0.0.1",
-    LocalPort => 0,
-+   GetAddrInfoFlags => AI_NUMERICHOST,
- ) or die "Cannot listen on PF_INET - $!";
- 
- my $client = IO::Socket::IP->new(
-    PeerHost => $server->sockhost,
-    PeerPort => $server->sockport,
-+   GetAddrInfoFlags => AI_NUMERICHOST,
- ) or die "Cannot connect on PF_INET - $!";
- 
- my $accepted = $server->accept
-diff --git a/t/22timeout.t b/t/22timeout.t
-index a4c28b3..c4a08f5 100644
---- a/t/22timeout.t
-+++ b/t/22timeout.t
-@@ -6,17 +6,20 @@ use warnings;
- use Test::More;
- 
- use IO::Socket::IP;
-+use Socket qw( AI_NUMERICHOST );
- 
- my $server = IO::Socket::IP->new(
-    Listen    => 1,
-    LocalHost => "127.0.0.1",
-    LocalPort => 0,
-+   GetAddrInfoFlags => AI_NUMERICHOST,
- ) or die "Cannot listen on PF_INET - $!";
- 
- my $client = IO::Socket::IP->new(
-    PeerHost => $server->sockhost,
-    PeerPort => $server->sockport,
-    Timeout  => 0.1,
-+   GetAddrInfoFlags => AI_NUMERICHOST,
- ) or die "Cannot connect on PF_INET - $!";
- 
- ok( defined $client, 'client constructed with Timeout' );
-diff --git a/t/30nonblocking-connect.t b/t/30nonblocking-connect.t
-index 518bd2e..ade8349 100644
---- a/t/30nonblocking-connect.t
-+++ b/t/30nonblocking-connect.t
-@@ -8,7 +8,7 @@ use Test::More;
- use IO::Socket::IP;
- 
- use IO::Socket::INET;
--use Socket qw( inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in );
-+use Socket qw( inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in AI_NUMERICHOST );
- use Errno qw( EINPROGRESS EWOULDBLOCK );
- 
- # Some odd locations like BSD jails might not like INADDR_LOOPBACK. We'll
-@@ -27,6 +27,7 @@ my $testserver = IO::Socket::INET->new(
-    Listen    => 1,
-    LocalHost => "127.0.0.1",
-    Type      => SOCK_STREAM,
-+   GetAddrInfoFlags => AI_NUMERICHOST,
- ) or die "Cannot listen on PF_INET - $@";
- 
- my $socket = IO::Socket::IP->new(
-@@ -34,6 +35,7 @@ my $socket = IO::Socket::IP->new(
-    PeerService => $testserver->sockport,
-    Type        => SOCK_STREAM,
-    Blocking    => 0,
-+   GetAddrInfoFlags => AI_NUMERICHOST,
- );
- 
- ok( defined $socket, 'IO::Socket::IP->new( Blocking => 0 ) constructs a socket' ) or
diff -Nru libio-socket-ip-perl-0.39/debian/patches/series libio-socket-ip-perl-0.41/debian/patches/series
--- libio-socket-ip-perl-0.39/debian/patches/series	2020-06-02 20:50:27.000000000 +0000
+++ libio-socket-ip-perl-0.41/debian/patches/series	2020-09-26 23:22:57.000000000 +0000
@@ -1,2 +1,2 @@
 skip-internet-test
-nov4
+0001-Disable-getaddrinfo-3-AI_ADDRCONFIG-for-localhost-an.patch
diff -Nru libio-socket-ip-perl-0.39/debian/patches/skip-internet-test libio-socket-ip-perl-0.41/debian/patches/skip-internet-test
--- libio-socket-ip-perl-0.39/debian/patches/skip-internet-test	2020-06-02 20:50:27.000000000 +0000
+++ libio-socket-ip-perl-0.41/debian/patches/skip-internet-test	2020-09-26 23:22:57.000000000 +0000
@@ -9,11 +9,9 @@
  t/31nonblocking-connect-internet.t | 2 +-
  1 file changed, 1 insertion(+), 1 deletion(-)
 
-diff --git a/t/31nonblocking-connect-internet.t b/t/31nonblocking-connect-internet.t
-index 8dc3ca0..20308a0 100644
 --- a/t/31nonblocking-connect-internet.t
 +++ b/t/31nonblocking-connect-internet.t
-@@ -3,7 +3,7 @@
+@@ -4,7 +4,7 @@
  use strict;
  use warnings;
  
diff -Nru libio-socket-ip-perl-0.39/debian/upstream/metadata libio-socket-ip-perl-0.41/debian/upstream/metadata
--- libio-socket-ip-perl-0.39/debian/upstream/metadata	2020-06-02 19:27:51.000000000 +0000
+++ libio-socket-ip-perl-0.41/debian/upstream/metadata	2020-09-26 23:22:57.000000000 +0000
@@ -1 +1,2 @@
-Repository: http://bazaar.leonerd.org.uk/perl/IO-Socket-IP
+---
+Repository: https://bazaar.leonerd.org.uk/perl/IO-Socket-IP
diff -Nru libio-socket-ip-perl-0.39/lib/IO/Socket/IP.pm libio-socket-ip-perl-0.41/lib/IO/Socket/IP.pm
--- libio-socket-ip-perl-0.39/lib/IO/Socket/IP.pm	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/lib/IO/Socket/IP.pm	2020-09-15 16:05:50.000000000 +0000
@@ -1,17 +1,20 @@
 #  You may distribute under the terms of either the GNU General Public License
 #  or the Artistic License (the same terms as Perl itself)
 #
-#  (C) Paul Evans, 2010-2015 -- leonerd@leonerd.org.uk
+#  (C) Paul Evans, 2010-2020 -- leonerd@leonerd.org.uk
 
 package IO::Socket::IP;
+
+use v5;
+use strict;
+use warnings;
+
 # $VERSION needs to be set before  use base 'IO::Socket'
 #  - https://rt.cpan.org/Ticket/Display.html?id=92107
 BEGIN {
-   $VERSION = '0.39';
+   our $VERSION = '0.41';
 }
 
-use strict;
-use warnings;
 use base qw( IO::Socket );
 
 use Carp;
@@ -96,11 +99,10 @@
 
 =head1 REPLACING C<IO::Socket> DEFAULT BEHAVIOUR
 
-By placing C<-register> in the import list, L<IO::Socket> uses
-C<IO::Socket::IP> rather than C<IO::Socket::INET> as the class that handles
-C<PF_INET>.  C<IO::Socket> will also use C<IO::Socket::IP> rather than
-C<IO::Socket::INET6> to handle C<PF_INET6>, provided that the C<AF_INET6>
-constant is available.
+By placing C<-register> in the import list to C<IO::Socket::IP>, it will
+register itself with L<IO::Socket> as the class that handles C<PF_INET>. It
+will also ask to handle C<PF_INET6> as well, provided that constant is
+available.
 
 Changing C<IO::Socket>'s default behaviour means that calling the
 C<IO::Socket> constructor with either C<PF_INET> or C<PF_INET6> as the
@@ -167,7 +169,9 @@
 
 =cut
 
-=head2 $sock = IO::Socket::IP->new( %args )
+=head2 new
+
+   $sock = IO::Socket::IP->new( %args )
 
 Creates a new C<IO::Socket::IP> object, containing a newly created socket
 handle according to the named arguments passed. The recognised arguments are:
@@ -353,7 +357,9 @@
 this may be from C<$!> or it may be some other string; not every failure
 necessarily has an associated C<errno> value.
 
-=head2 $sock = IO::Socket::IP->new( $peeraddr )
+=head2 new (one arg)
+
+   $sock = IO::Socket::IP->new( $peeraddr )
 
 As a special case, if the constructor is passed a single argument (as
 opposed to an even-sized list of key/value pairs), it is taken to be the value
@@ -817,7 +823,9 @@
    }
 }
 
-=head2 ( $host, $service ) = $sock->sockhost_service( $numeric )
+=head2 sockhost_service
+
+   ( $host, $service ) = $sock->sockhost_service( $numeric )
 
 Returns the hostname and service name of the local address (that is, the
 socket address given by the C<sockname> method).
@@ -840,19 +848,27 @@
    $self->_get_host_service( $self->sockname, $numeric ? NI_NUMERICHOST|NI_NUMERICSERV : 0 );
 }
 
-=head2 $addr = $sock->sockhost
+=head2 sockhost
+
+   $addr = $sock->sockhost
 
 Return the numeric form of the local address as a textual representation
 
-=head2 $port = $sock->sockport
+=head2 sockport
+
+   $port = $sock->sockport
 
 Return the numeric form of the local port number
 
-=head2 $host = $sock->sockhostname
+=head2 sockhostname
+
+   $host = $sock->sockhostname
 
 Return the resolved name of the local address
 
-=head2 $service = $sock->sockservice
+=head2 sockservice
+
+   $service = $sock->sockservice
 
 Return the resolved name of the local port number
 
@@ -864,7 +880,9 @@
 sub sockhostname { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, 0, NIx_NOSERV ) )[0] }
 sub sockservice  { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, 0, NIx_NOHOST ) )[1] }
 
-=head2 $addr = $sock->sockaddr
+=head2 sockaddr
+
+   $addr = $sock->sockaddr
 
 Return the local address as a binary octet string
 
@@ -872,7 +890,9 @@
 
 sub sockaddr { my $self = shift; _unpack_sockaddr $self->sockname }
 
-=head2 ( $host, $service ) = $sock->peerhost_service( $numeric )
+=head2 peerhost_service
+
+   ( $host, $service ) = $sock->peerhost_service( $numeric )
 
 Returns the hostname and service name of the peer address (that is, the
 socket address given by the C<peername> method), similar to the
@@ -893,19 +913,27 @@
    $self->_get_host_service( $self->peername, $numeric ? NI_NUMERICHOST|NI_NUMERICSERV : 0 );
 }
 
-=head2 $addr = $sock->peerhost
+=head2 peerhost
+
+   $addr = $sock->peerhost
 
 Return the numeric form of the peer address as a textual representation
 
-=head2 $port = $sock->peerport
+=head2 peerport
+
+   $port = $sock->peerport
 
 Return the numeric form of the peer port number
 
-=head2 $host = $sock->peerhostname
+=head2 peerhostname
+
+   $host = $sock->peerhostname
 
 Return the resolved name of the peer address
 
-=head2 $service = $sock->peerservice
+=head2 peerservice
+
+   $service = $sock->peerservice
 
 Return the resolved name of the peer port number
 
@@ -917,7 +945,9 @@
 sub peerhostname { my $self = shift; scalar +( $self->_get_host_service( $self->peername, 0, NIx_NOSERV ) )[0] }
 sub peerservice  { my $self = shift; scalar +( $self->_get_host_service( $self->peername, 0, NIx_NOHOST ) )[1] }
 
-=head2 $addr = $peer->peeraddr
+=head2 peeraddr
+
+   $addr = $peer->peeraddr
 
 Return the peer address as a binary octet string
 
@@ -967,7 +997,9 @@
    }
 }
 
-=head2 $inet = $sock->as_inet
+=head2 as_inet
+
+   $inet = $sock->as_inet
 
 Returns a new L<IO::Socket::INET> instance wrapping the same filehandle. This
 may be useful in cases where it is required, for backward-compatibility, to
@@ -1089,7 +1121,9 @@
 C<...Service> or C<...Port> argument is also defined, the one parsed from
 the C<...Host> argument will take precedence and the other will be ignored.
 
-=head2 ( $host, $port ) = IO::Socket::IP->split_addr( $addr )
+=head2 split_addr
+
+   ( $host, $port ) = IO::Socket::IP->split_addr( $addr )
 
 Utility method that provides the parsing functionality described above.
 Returns a 2-element list, containing either the split hostname and port
@@ -1125,7 +1159,9 @@
    return ( $addr, undef );
 }
 
-=head2 $addr = IO::Socket::IP->join_addr( $host, $port )
+=head2 join_addr
+
+   $addr = IO::Socket::IP->join_addr( $host, $port )
 
 Utility method that performs the reverse of C<split_addr>, returning a string
 formed by joining the specified host address and port number. The host address
diff -Nru libio-socket-ip-perl-0.39/LICENSE libio-socket-ip-perl-0.41/LICENSE
--- libio-socket-ip-perl-0.39/LICENSE	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/LICENSE	2020-09-15 16:05:50.000000000 +0000
@@ -1,4 +1,4 @@
-This software is copyright (c) 2017 by Paul Evans <leonerd@leonerd.org.uk>.
+This software is copyright (c) 2020 by Paul Evans <leonerd@leonerd.org.uk>.
 
 This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
 
 --- The GNU General Public License, Version 1, February 1989 ---
 
-This software is Copyright (c) 2017 by Paul Evans <leonerd@leonerd.org.uk>.
+This software is Copyright (c) 2020 by Paul Evans <leonerd@leonerd.org.uk>.
 
 This is free software, licensed under:
 
@@ -272,7 +272,7 @@
 
 --- The Artistic License 1.0 ---
 
-This software is Copyright (c) 2017 by Paul Evans <leonerd@leonerd.org.uk>.
+This software is Copyright (c) 2020 by Paul Evans <leonerd@leonerd.org.uk>.
 
 This is free software, licensed under:
 
diff -Nru libio-socket-ip-perl-0.39/Makefile.PL libio-socket-ip-perl-0.41/Makefile.PL
--- libio-socket-ip-perl-0.39/Makefile.PL	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/Makefile.PL	1970-01-01 00:00:00.000000000 +0000
@@ -1,16 +0,0 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.4220
-use ExtUtils::MakeMaker;
-WriteMakefile
-(
-  'NAME' => 'IO::Socket::IP',
-  'VERSION_FROM' => 'lib/IO/Socket/IP.pm',
-  'PREREQ_PM' => {
-                   'IO::Socket' => 0,
-                   'Socket' => '1.97',
-                   'Test::More' => '0.88'
-                 },
-  'INSTALLDIRS' => 'site',
-  'EXE_FILES' => [],
-  'PL_FILES' => {}
-)
-;
diff -Nru libio-socket-ip-perl-0.39/MANIFEST libio-socket-ip-perl-0.41/MANIFEST
--- libio-socket-ip-perl-0.39/MANIFEST	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/MANIFEST	2020-09-15 16:05:50.000000000 +0000
@@ -4,7 +4,6 @@
 examples/nonblocking_libasyncns.pl
 lib/IO/Socket/IP.pm
 LICENSE
-Makefile.PL
 MANIFEST			This list of files
 META.json
 META.yml
diff -Nru libio-socket-ip-perl-0.39/META.json libio-socket-ip-perl-0.41/META.json
--- libio-socket-ip-perl-0.39/META.json	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/META.json	2020-09-15 16:05:50.000000000 +0000
@@ -4,19 +4,19 @@
       "Paul Evans <leonerd@leonerd.org.uk>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "Module::Build version 0.422",
+   "generated_by" : "Module::Build version 0.4231",
    "license" : [
       "perl_5"
    ],
    "meta-spec" : {
       "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
-      "version" : "2"
+      "version" : 2
    },
    "name" : "IO-Socket-IP",
    "prereqs" : {
-      "build" : {
+      "configure" : {
          "requires" : {
-            "Test::More" : "0.88"
+            "Module::Build" : "0.4004"
          }
       },
       "runtime" : {
@@ -24,12 +24,17 @@
             "IO::Socket" : "0",
             "Socket" : "1.97"
          }
+      },
+      "test" : {
+         "requires" : {
+            "Test::More" : "0.88"
+         }
       }
    },
    "provides" : {
       "IO::Socket::IP" : {
          "file" : "lib/IO/Socket/IP.pm",
-         "version" : "0.39"
+         "version" : "0.41"
       }
    },
    "release_status" : "stable",
@@ -38,6 +43,6 @@
          "http://dev.perl.org/licenses/"
       ]
    },
-   "version" : "0.39",
-   "x_serialization_backend" : "JSON::PP version 2.27400"
+   "version" : "0.41",
+   "x_serialization_backend" : "JSON::PP version 4.05"
 }
diff -Nru libio-socket-ip-perl-0.39/META.yml libio-socket-ip-perl-0.41/META.yml
--- libio-socket-ip-perl-0.39/META.yml	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/META.yml	2020-09-15 16:05:50.000000000 +0000
@@ -4,8 +4,10 @@
   - 'Paul Evans <leonerd@leonerd.org.uk>'
 build_requires:
   Test::More: '0.88'
+configure_requires:
+  Module::Build: '0.4004'
 dynamic_config: 1
-generated_by: 'Module::Build version 0.422, CPAN::Meta::Converter version 2.150005'
+generated_by: 'Module::Build version 0.4231, CPAN::Meta::Converter version 2.150010'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -14,11 +16,11 @@
 provides:
   IO::Socket::IP:
     file: lib/IO/Socket/IP.pm
-    version: '0.39'
+    version: '0.41'
 requires:
   IO::Socket: '0'
   Socket: '1.97'
 resources:
   license: http://dev.perl.org/licenses/
-version: '0.39'
+version: '0.41'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -Nru libio-socket-ip-perl-0.39/README libio-socket-ip-perl-0.41/README
--- libio-socket-ip-perl-0.39/README	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/README	2020-09-15 16:05:50.000000000 +0000
@@ -33,10 +33,10 @@
 
 REPLACING IO::Socket DEFAULT BEHAVIOUR
 
-    By placing -register in the import list, IO::Socket uses IO::Socket::IP
-    rather than IO::Socket::INET as the class that handles PF_INET.
-    IO::Socket will also use IO::Socket::IP rather than IO::Socket::INET6
-    to handle PF_INET6, provided that the AF_INET6 constant is available.
+    By placing -register in the import list to IO::Socket::IP, it will
+    register itself with IO::Socket as the class that handles PF_INET. It
+    will also ask to handle PF_INET6 as well, provided that constant is
+    available.
 
     Changing IO::Socket's default behaviour means that calling the
     IO::Socket constructor with either PF_INET or PF_INET6 as the Domain
@@ -58,7 +58,9 @@
 
 CONSTRUCTORS
 
- $sock = IO::Socket::IP->new( %args )
+ new
+
+       $sock = IO::Socket::IP->new( %args )
 
     Creates a new IO::Socket::IP object, containing a newly created socket
     handle according to the named arguments passed. The recognised
@@ -249,7 +251,9 @@
     message; this may be from $! or it may be some other string; not every
     failure necessarily has an associated errno value.
 
- $sock = IO::Socket::IP->new( $peeraddr )
+ new (one arg)
+
+       $sock = IO::Socket::IP->new( $peeraddr )
 
     As a special case, if the constructor is passed a single argument (as
     opposed to an even-sized list of key/value pairs), it is taken to be
@@ -262,7 +266,9 @@
     As well as the following methods, this class inherits all the methods
     in IO::Socket and IO::Handle.
 
- ( $host, $service ) = $sock->sockhost_service( $numeric )
+ sockhost_service
+
+       ( $host, $service ) = $sock->sockhost_service( $numeric )
 
     Returns the hostname and service name of the local address (that is,
     the socket address given by the sockname method).
@@ -275,28 +281,40 @@
     required, this method is preferable to the following wrappers, because
     it will call getnameinfo(3) only once.
 
- $addr = $sock->sockhost
+ sockhost
+
+       $addr = $sock->sockhost
 
     Return the numeric form of the local address as a textual
     representation
 
- $port = $sock->sockport
+ sockport
+
+       $port = $sock->sockport
 
     Return the numeric form of the local port number
 
- $host = $sock->sockhostname
+ sockhostname
+
+       $host = $sock->sockhostname
 
     Return the resolved name of the local address
 
- $service = $sock->sockservice
+ sockservice
+
+       $service = $sock->sockservice
 
     Return the resolved name of the local port number
 
- $addr = $sock->sockaddr
+ sockaddr
+
+       $addr = $sock->sockaddr
 
     Return the local address as a binary octet string
 
- ( $host, $service ) = $sock->peerhost_service( $numeric )
+ peerhost_service
+
+       ( $host, $service ) = $sock->peerhost_service( $numeric )
 
     Returns the hostname and service name of the peer address (that is, the
     socket address given by the peername method), similar to the
@@ -307,27 +325,39 @@
     required, this method is preferable to the following wrappers, because
     it will call getnameinfo(3) only once.
 
- $addr = $sock->peerhost
+ peerhost
+
+       $addr = $sock->peerhost
 
     Return the numeric form of the peer address as a textual representation
 
- $port = $sock->peerport
+ peerport
+
+       $port = $sock->peerport
 
     Return the numeric form of the peer port number
 
- $host = $sock->peerhostname
+ peerhostname
+
+       $host = $sock->peerhostname
 
     Return the resolved name of the peer address
 
- $service = $sock->peerservice
+ peerservice
+
+       $service = $sock->peerservice
 
     Return the resolved name of the peer port number
 
- $addr = $peer->peeraddr
+ peeraddr
+
+       $addr = $peer->peeraddr
 
     Return the peer address as a binary octet string
 
- $inet = $sock->as_inet
+ as_inet
+
+       $inet = $sock->as_inet
 
     Returns a new IO::Socket::INET instance wrapping the same filehandle.
     This may be useful in cases where it is required, for
@@ -440,7 +470,9 @@
     ...Service or ...Port argument is also defined, the one parsed from the
     ...Host argument will take precedence and the other will be ignored.
 
- ( $host, $port ) = IO::Socket::IP->split_addr( $addr )
+ split_addr
+
+       ( $host, $port ) = IO::Socket::IP->split_addr( $addr )
 
     Utility method that provides the parsing functionality described above.
     Returns a 2-element list, containing either the split hostname and port
@@ -459,7 +491,9 @@
      IO::Socket::IP->split_addr( "something.else" )
                                   # ( "something.else", undef )
 
- $addr = IO::Socket::IP->join_addr( $host, $port )
+ join_addr
+
+       $addr = IO::Socket::IP->join_addr( $host, $port )
 
     Utility method that performs the reverse of split_addr, returning a
     string formed by joining the specified host address and port number.
diff -Nru libio-socket-ip-perl-0.39/t/00use.t libio-socket-ip-perl-0.41/t/00use.t
--- libio-socket-ip-perl-0.39/t/00use.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/00use.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/01local-client-v4.t libio-socket-ip-perl-0.41/t/01local-client-v4.t
--- libio-socket-ip-perl-0.39/t/01local-client-v4.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/01local-client-v4.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/02local-server-v4.t libio-socket-ip-perl-0.41/t/02local-server-v4.t
--- libio-socket-ip-perl-0.39/t/02local-server-v4.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/02local-server-v4.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/03local-cross-v4.t libio-socket-ip-perl-0.41/t/03local-cross-v4.t
--- libio-socket-ip-perl-0.39/t/03local-cross-v4.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/03local-cross-v4.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/04local-client-v6.t libio-socket-ip-perl-0.41/t/04local-client-v6.t
--- libio-socket-ip-perl-0.39/t/04local-client-v6.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/04local-client-v6.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/05local-server-v6.t libio-socket-ip-perl-0.41/t/05local-server-v6.t
--- libio-socket-ip-perl-0.39/t/05local-server-v6.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/05local-server-v6.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/06local-cross-v6.t libio-socket-ip-perl-0.41/t/06local-cross-v6.t
--- libio-socket-ip-perl-0.39/t/06local-cross-v6.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/06local-cross-v6.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/10args.t libio-socket-ip-perl-0.41/t/10args.t
--- libio-socket-ip-perl-0.39/t/10args.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/10args.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/11sockopts.t libio-socket-ip-perl-0.41/t/11sockopts.t
--- libio-socket-ip-perl-0.39/t/11sockopts.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/11sockopts.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/12port-fallback.t libio-socket-ip-perl-0.41/t/12port-fallback.t
--- libio-socket-ip-perl-0.39/t/12port-fallback.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/12port-fallback.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/13addrinfo.t libio-socket-ip-perl-0.41/t/13addrinfo.t
--- libio-socket-ip-perl-0.39/t/13addrinfo.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/13addrinfo.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/14fileno.t libio-socket-ip-perl-0.41/t/14fileno.t
--- libio-socket-ip-perl-0.39/t/14fileno.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/14fileno.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/15io-socket.t libio-socket-ip-perl-0.41/t/15io-socket.t
--- libio-socket-ip-perl-0.39/t/15io-socket.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/15io-socket.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/16v6only.t libio-socket-ip-perl-0.41/t/16v6only.t
--- libio-socket-ip-perl-0.39/t/16v6only.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/16v6only.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/17gai-flags.t libio-socket-ip-perl-0.41/t/17gai-flags.t
--- libio-socket-ip-perl-0.39/t/17gai-flags.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/17gai-flags.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/18fdopen.t libio-socket-ip-perl-0.41/t/18fdopen.t
--- libio-socket-ip-perl-0.39/t/18fdopen.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/18fdopen.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/19no-addrs.t libio-socket-ip-perl-0.41/t/19no-addrs.t
--- libio-socket-ip-perl-0.39/t/19no-addrs.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/19no-addrs.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/20subclass.t libio-socket-ip-perl-0.41/t/20subclass.t
--- libio-socket-ip-perl-0.39/t/20subclass.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/20subclass.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/21as-inet.t libio-socket-ip-perl-0.41/t/21as-inet.t
--- libio-socket-ip-perl-0.39/t/21as-inet.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/21as-inet.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/22timeout.t libio-socket-ip-perl-0.41/t/22timeout.t
--- libio-socket-ip-perl-0.39/t/22timeout.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/22timeout.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/30nonblocking-connect.t libio-socket-ip-perl-0.41/t/30nonblocking-connect.t
--- libio-socket-ip-perl-0.39/t/30nonblocking-connect.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/30nonblocking-connect.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/31nonblocking-connect-internet.t libio-socket-ip-perl-0.41/t/31nonblocking-connect-internet.t
--- libio-socket-ip-perl-0.39/t/31nonblocking-connect-internet.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/31nonblocking-connect-internet.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;
 
diff -Nru libio-socket-ip-perl-0.39/t/99pod.t libio-socket-ip-perl-0.41/t/99pod.t
--- libio-socket-ip-perl-0.39/t/99pod.t	2017-03-06 16:45:05.000000000 +0000
+++ libio-socket-ip-perl-0.41/t/99pod.t	2020-09-15 16:05:50.000000000 +0000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use v5;
 use strict;
 use warnings;