io_poll.t vms/test.com tweaks
authorCraig A. Berry <craigberry@mac.com>
Sun, 18 Nov 2001 14:33:48 +0000 (08:33 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 19 Nov 2001 13:50:45 +0000 (13:50 +0000)
Message-Id: <a05101001b81db38899ea@[172.16.52.1]>

p4raw-id: //depot/perl@13091

ext/IO/lib/IO/t/io_poll.t
vms/test.com

index d31ea47..8d157b5 100755 (executable)
@@ -39,7 +39,7 @@ print "ok 2\n";
 
 $poll->poll(0.1);
 
-if ($^O eq 'MSWin32' || $^O eq 'NetWare') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
 print "ok 3 # skipped, doesn't work on non-socket fds\n";
 print "ok 4 # skipped, doesn't work on non-socket fds\n";
 }
index a7064a9..b7e5eea 100644 (file)
@@ -115,7 +115,7 @@ use Config;
 use File::Spec;
 
 @compexcl=('cpp.t');
-@opexcl=('die_exit.t','exec.t','magic.t','stat.t');
+@opexcl=('die_exit.t','exec.t','stat.t');
 @exclist=(@compexcl,@libexcl,@opexcl);
 foreach $file (@exclist) { $skip{$file}++; }