Message-Id: <
20011113205134.F32567@blackrider>
p4raw-id: //depot/perl@12986
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;
}
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;