In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/428c1478168bb1c70dedae2f1cda59a305dc0eba?hp=6d451ee1f92cfef80e4008928166bcdf90f6324a>

- Log -----------------------------------------------------------------
commit 428c1478168bb1c70dedae2f1cda59a305dc0eba
Author: Tony Cook <[email protected]>
Date:   Wed Jul 13 11:52:52 2016 +1000

    darwin was failing this test under PERLIO=stdio
    
    fdopen() on darwin seems to set errno to 2 (ENOENT) when it runs out of
    FILE entries.
-----------------------------------------------------------------------

Summary of changes:
 t/io/socket.t | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/t/io/socket.t b/t/io/socket.t
index 54e4438..bba7f91 100644
--- a/t/io/socket.t
+++ b/t/io/socket.t
@@ -132,6 +132,10 @@ SKIP:
 {
     eval { require Errno; defined &Errno::EMFILE }
       or skip "Can't load Errno or EMFILE not defined", 1;
+    # stdio might return strange values in errno if it runs
+    # out of FILE entries, and does on darwin
+    $^O eq "darwin" && exists $ENV{PERLIO} && $ENV{PERLIO} =~ /stdio/
+      and skip "errno values from stdio are unspecified", 1;
     my @socks;
     my $sock_limit = 1000; # don't consume every file in the system
     # Default limits on various systems I have:

--
Perl5 Master Repository

Reply via email to