X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Fopenpid.t;h=3871e0b4e4bd2559d78b2e7af3db324b7a5aedc9;hb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;hp=80c6bde5d1f01c7d4d3fe59c7a5d9984ae372f2f;hpb=4b19af017623bfa3bb72bb164598a517f586e0d3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/io/openpid.t b/t/io/openpid.t
index 80c6bde..3871e0b 100755
--- a/t/io/openpid.t
+++ b/t/io/openpid.t
@@ -9,7 +9,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
     if ($^O eq 'dos') {
         print "1..0 # Skip: no multitasking\n";
         exit 0;
@@ -78,7 +78,6 @@ print "ok 8\n";
 # send one expected line of text to child process and then wait for it
 autoflush FH4 1;
 print FH4 "ok 9\n";
-print "ok 9 # skip VMS\n" if $^O eq 'VMS';
 print "# waiting for process $pid4 to exit\n";
 $reap_pid = waitpid $pid4, 0;
 print "# reaped pid $reap_pid != $pid4\nnot "