This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip t/io/eintr.t on production releases
authorDavid Mitchell <davem@iabyn.com>
Tue, 3 May 2011 15:26:51 +0000 (16:26 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 3 May 2011 15:26:51 +0000 (16:26 +0100)
We already skip this test file on many platforms which don't
have interruptible IO system calls. Extend this to unconditionally
skip if it's an even (production) release version, so that we don't get
false positives for other platforms we didn't know about.

t/io/eintr.t

index 35bde53..e545228 100644 (file)
@@ -45,9 +45,14 @@ if (exists $ENV{PERLIO} && $ENV{PERLIO} =~ /stdio/  ) {
 # On FreeBSD, writes to pipes of 8192 bytes or more use a mechanism
 # that is not interruptible (see perl #85842 and #84688).
 # "close during print" also hangs on Solaris 8 (but not 10 or 11).
+#
+# Also skip on release builds, to avoid other possibly problematic
+# platforms
 
 if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'freebsd' || 
-     ($^O eq 'solaris' && $Config{osvers} eq '2.8') ) {
+     ($^O eq 'solaris' && $Config{osvers} eq '2.8')
+       || ((int($]*1000) & 1) == 0)
+) {
        skip_all('various portability issues');
        exit 0;
 }