From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 18 Nov 2001 14:33:48 +0000 (-0600)
Subject: io_poll.t vms/test.com tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d2b156ae906ef7a9a997cd88768c12dec800b98;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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}++; }