From 05f4e11e4fb0a62bd31b9b2bd08526fa0aba7e62 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Tue, 13 Nov 2001 15:51:34 -0500
Subject: [PATCH] VMS fix Message-Id: <20011113205134.F32567@blackrider>

p4raw-id: //depot/perl@12986
---
 ext/IO/lib/IO/t/io_sel.t | 7 ++++---
 vms/test.com             | 4 +---
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/ext/IO/lib/IO/t/io_sel.t b/ext/IO/lib/IO/t/io_sel.t
index 1426b76..009c251 100755
--- a/ext/IO/lib/IO/t/io_sel.t
+++ b/ext/IO/lib/IO/t/io_sel.t
@@ -49,9 +49,10 @@ $sel->remove([\*STDOUT, 5]);
 print "not " unless $sel->count == 0 && !defined($sel->bits);
 print "ok 9\n";
 
-if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos') {  # 4-arg select is only valid on sockets
-    print "# skipping tests 10..15\n";
-    for (10 .. 15) { print "ok $_\n" }
+if ( grep $^O eq $_, qw(MSWin32 NetWare dos VMS riscos) ) {
+    for (10 .. 15) { 
+        print "ok $_ # skip: 4-arg select is only valid on sockets\n"
+    }
     $sel->add(\*STDOUT);  # update
     goto POST_SOCKET;
 }
diff --git a/vms/test.com b/vms/test.com
index ac63c22..786418c 100644
--- a/vms/test.com
+++ b/vms/test.com
@@ -115,10 +115,8 @@ use Config;
 use File::Spec;
 
 @compexcl=('cpp.t');
-@libexcl=('io_sel.t');
-
 @opexcl=('die_exit.t','exec.t','groups.t','magic.t','stat.t');
-@exclist=(@compexcl,@ioexcl,@libexcl,@opexcl);
+@exclist=(@compexcl,@libexcl,@opexcl);
 foreach $file (@exclist) { $skip{$file}++; }
 
 $| = 1;
-- 
2.7.4