Skip eintr.t on VMS.

It's doing select() on a pipe, but only sockets work with select(),
and the read() on a pipe is not interruptible by an alarm.  That's
probably because our pipe implementation is doing mailbox reads at
AST level but the alarm signal is also an AST and can't interrupt
another AST at the same mode.

diff --git a/t/io/eintr.t b/t/io/eintr.t
index 3b6b0a4..28983c3 100644 (file)
--- a/t/io/eintr.t
+++ b/t/io/eintr.t
@@ -40,6 +40,11 @@ if (exists $ENV{PERLIO} && $ENV{PERLIO} =~ /stdio/  ) {
        exit 0;
 }
 
+if ($^O eq 'VMS') {
+       skip_all('various portability issues');
+       exit 0;
+}
+
 my ($in, $out, $st, $sigst, $buf);
 
 plan(tests => 10);