io_poll.t vms/test.com tweaks

Message-Id: <a05101001b81db38899ea@[172.16.52.1]>

p4raw-id: //depot/perl@13091

diff --git a/ext/IO/lib/IO/t/io_poll.t b/ext/IO/lib/IO/t/io_poll.t
index d31ea47..8d157b5 100755 (executable)
--- a/ext/IO/lib/IO/t/io_poll.t
+++ b/ext/IO/lib/IO/t/io_poll.t
@@ -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";
 }

diff --git a/vms/test.com b/vms/test.com
index a7064a9..b7e5eea 100644 (file)
--- a/vms/test.com
+++ b/vms/test.com
@@ -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}++; }