summaryrefslogtreecommitdiff
path: root/t/io
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2011-05-03 16:26:51 +0100
committerDavid Mitchell <davem@iabyn.com>2011-05-03 16:26:51 +0100
commita9e4bc69d5e57e574e1d63e589e86d007e873f88 (patch)
treec2c52b5329f55fca07809f174ad27b67732bb7b2 /t/io
parent2cf7ccf4931854c14e60926e895b739f6089d299 (diff)
downloadperl-a9e4bc69d5e57e574e1d63e589e86d007e873f88.tar.gz
skip t/io/eintr.t on production releases
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.
Diffstat (limited to 't/io')
-rw-r--r--t/io/eintr.t7
1 files changed, 6 insertions, 1 deletions
diff --git a/t/io/eintr.t b/t/io/eintr.t
index 35bde53292..e545228f97 100644
--- a/t/io/eintr.t
+++ b/t/io/eintr.t
@@ -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;
}