IO-1.39_02

Skip EINVAL on FreeBSD tests when binding a tcp listener on localhost.

dist/IO/IO.pm

@@ -6,7 +6,7 @@ use XSLoader ();
 use strict;
 use warnings;
 
-our $VERSION = "1.39_01";
+our $VERSION = "1.39_02";
 our $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 XSLoader::load 'IO', $XS_VERSION;

dist/IO/t/io_multihomed.t

@@ -1,9 +1,9 @@
 #!./perl
 
+use Config;
+
 BEGIN {
     require($ENV{PERL_CORE} ? '../../t/test.pl' : './t/test.pl');
-
-    use Config;
     my $can_fork = $Config{d_fork} ||
 		    (($^O eq 'MSWin32' || $^O eq 'NetWare') and
 		     $Config{useithreads} and 
@@ -24,7 +24,6 @@ BEGIN {
 
 $| = 1;
 
-print "1..8\n";
 watchdog(15);
 
 package Multi;
@@ -73,13 +72,24 @@ sub connect
 package main;
 
 use IO::Socket;
+# Don't be locale-sensitive
+$! = Errno::EINVAL;
+my $EINVAL_STR = "$!";
 
 $listen = IO::Socket::INET->new(LocalAddr => 'localhost',
 				Listen => 2,
 				Proto => 'tcp',
 				Timeout => 5,
-			       ) or die "$!";
+                               );
+unless ($listen) {
+  if ($^O eq 'freebsd' && $! eq $EINVAL_STR) {
+    skip_all("tcp listener on localhost disallowed on this $^O");
+  } else {
+    die "$!";
+  }
+}
 
+print "1..8\n";
 print "ok 1\n";
 
 $port = $listen->sockport;

dist/IO/t/io_sock.t

@@ -3,6 +3,7 @@
 use Config;
 
 BEGIN {
+    require($ENV{PERL_CORE} ? '../../t/test.pl' : './t/test.pl');
     my $can_fork = $Config{d_fork} ||
 		    (($^O eq 'MSWin32' || $^O eq 'NetWare') and
 		     $Config{useithreads} and 
@@ -18,32 +19,39 @@ BEGIN {
     elsif (!$can_fork) {
         $reason = 'no fork';
     }
-    if ($reason) {
-	print "1..0 # Skip: $reason\n";
-	exit 0;
-    }
+    skip_all($reason) if $reason;
 }
 
 my $has_perlio = find PerlIO::Layer 'perlio';
 
 $| = 1;
-print "1..26\n";
 
 eval {
     $SIG{ALRM} = sub { die; };
     alarm 120;
 };
 
 use IO::Socket;
+# Don't be locale-sensitive
+$! = Errno::EINVAL;
+my $EINVAL_STR = "$!";
 
 $listen = IO::Socket::INET->new(LocalAddr => 'localhost',
 				Listen => 2,
 				Proto => 'tcp',
 				# some systems seem to need as much as 10,
 				# so be generous with the timeout
 				Timeout => 15,
-			       ) or die "$!";
+			       );
+unless ($listen) {
+  if ($^O eq 'freebsd' && $! eq $EINVAL_STR) {
+    skip_all("tcp listener on localhost disallowed on this $^O");
+  } else {
+    die "$!";
+  }
+}
 
+print "1..26\n";
 print "ok 1\n";
 
 # Check if can fork with dynamic extensions (bug in CRT):

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -18411,6 +18411,7 @@ our %delta :const = (
             'B::Op_private'         => '5.029002',
             'Module::CoreList'      => '5.20190313c',
             'Module::CoreList::Utils'=> '5.20190313c',
+            'IO'                    => '1.39_02',
             'IO::Socket::IP'        => '0.39_03',
             'Net::Ping'             => '2.72',
         },

pod/perlcdelta.pod

@@ -163,6 +163,10 @@ XXX
 
 Add the FREEBSD_KERNEL_VERSION key for FreeBSD.
 
+=item L<IO> 1.39_02
+
+Skip EINVAL on FreeBSD tests when binding a tcp listener on localhost.
+
 =item L<IO::Socket::IP> 0.39_03
 
 Allow ETIMEDOUT on FreeBSD INET6 socket with V6Only true.