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.

1 files changed, 5 insertions, 0 deletions

diff --git a/t/io/eintr.t b/t/io/eintr.t
index 3b6b0a4368..28983c3d02 100644
--- 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);