Update IO-Socket-IP to CPAN version 0.39
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 15 Jun 2017 11:30:05 +0000 (12:30 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 15 Jun 2017 11:30:05 +0000 (12:30 +0100)
  [DELTA]

0.39    2017/03/06 16:40:30
        [BUGFIXES]
         * Handle EOPNOTSUPP in resposne of efforts to disable V6ONLY
           (RT119780) (thanks XENU)

Porting/Maintainers.pl
cpan/IO-Socket-IP/lib/IO/Socket/IP.pm

index c8bdba6..0ffb4c3 100755 (executable)
@@ -618,7 +618,7 @@ use File::Glob qw(:case);
     },
 
     'IO::Socket::IP' => {
-        'DISTRIBUTION' => 'PEVANS/IO-Socket-IP-0.38.tar.gz',
+        'DISTRIBUTION' => 'PEVANS/IO-Socket-IP-0.39.tar.gz',
         'FILES'        => q[cpan/IO-Socket-IP],
         'EXCLUDED'     => [
             qr{^examples/},
index 1bf6b0e..5a5ee7d 100644 (file)
@@ -7,7 +7,7 @@ package IO::Socket::IP;
 # $VERSION needs to be set before  use base 'IO::Socket'
 #  - https://rt.cpan.org/Ticket/Display.html?id=92107
 BEGIN {
-   $VERSION = '0.38';
+   $VERSION = '0.39';
 }
 
 use strict;
@@ -31,7 +31,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;
 use POSIX qw( dup2 );
-use Errno qw( EINVAL EINPROGRESS EISCONN ENOTCONN ETIMEDOUT EWOULDBLOCK );
+use Errno qw( EINVAL EINPROGRESS EISCONN ENOTCONN ETIMEDOUT EWOULDBLOCK EOPNOTSUPP );
 
 use constant HAVE_MSWIN32 => ( $^O eq "MSWin32" );
 
@@ -154,7 +154,7 @@ sub import
       if( setsockopt $testsock, IPPROTO_IPV6, IPV6_V6ONLY, 0 ) {
          return $can_disable_v6only = 1;
       }
-      elsif( $! == EINVAL ) {
+      elsif( $! == EINVAL || $! == EOPNOTSUPP ) {
          return $can_disable_v6only = 0;
       }
       else {