diff options
| -rwxr-xr-x | ext/IO/lib/IO/t/io_sel.t | 7 | ||||
| -rw-r--r-- | 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 1426b76dfb..009c251252 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 ac63c22c17..786418cfd7 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; |