Change 13091 by jhi@alpha on 2001/11/19 13:50:45
Subject: [PATCH] io_poll.t vms/test.com tweaks
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Sun, 18 Nov 2001 14:33:48 -0600
Message-Id: <a05101001b81db38899ea@[172.16.52.1]>
Affected files ...
.... //depot/perl/ext/IO/lib/IO/t/io_poll.t#2 edit
.... //depot/perl/vms/test.com#40 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/t/io_poll.t#2 (xtext) ====
Index: perl/ext/IO/lib/IO/t/io_poll.t
--- perl/ext/IO/lib/IO/t/io_poll.t.~1~ Mon Nov 19 07:00:10 2001
+++ perl/ext/IO/lib/IO/t/io_poll.t Mon Nov 19 07:00:10 2001
@@ -39,7 +39,7 @@
$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";
}
==== //depot/perl/vms/test.com#40 (text) ====
Index: perl/vms/test.com
--- perl/vms/test.com.~1~ Mon Nov 19 07:00:10 2001
+++ perl/vms/test.com Mon Nov 19 07:00:10 2001
@@ -115,7 +115,7 @@
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}++; }
End of Patch.
