skip t/io/eintr.t on production releases

[perl5.git] / t / io / eintr.t

diff --git a/t/io/eintr.t b/t/io/eintr.t
index dc93660..e545228 100644 (file)
--- a/t/io/eintr.t
+++ b/t/io/eintr.t
@@ -44,8 +44,15 @@ if (exists $ENV{PERLIO} && $ENV{PERLIO} =~ /stdio/  ) {
 # Similar issues with VMS.
 # On FreeBSD, writes to pipes of 8192 bytes or more use a mechanism
 # that is not interruptible (see perl #85842 and #84688).
-
-if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'freebsd') {
+# "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')
+       || ((int($]*1000) & 1) == 0)
+) {
        skip_all('various portability issues');
        exit 0;
 }