diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-11-13 15:51:34 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-14 01:07:06 +0000 |
| commit | 05f4e11e4fb0a62bd31b9b2bd08526fa0aba7e62 (patch) | |
| tree | 9932c597d54f4395eacf908e079e9f9563824036 /ext/IO | |
| parent | 689c5c24fe39a249807e60d4f0bb63f4fcd80b10 (diff) | |
| download | perl-05f4e11e4fb0a62bd31b9b2bd08526fa0aba7e62.tar.gz | |
VMS fix
Message-Id: <20011113205134.F32567@blackrider>
p4raw-id: //depot/perl@12986
Diffstat (limited to 'ext/IO')
| -rwxr-xr-x | ext/IO/lib/IO/t/io_sel.t | 7 |
1 files changed, 4 insertions, 3 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; } |