integrate changes#2978,2979 from mainline

[perl5.git] / vms / test.com

diff --git a/vms/test.com b/vms/test.com
index f131088..0e507dd 100644 (file)
--- a/vms/test.com
+++ b/vms/test.com
@@ -100,7 +100,7 @@ $   Deck/Dollar=$$END-OF-TEST$$
 use Config;
 
 @compexcl=('cpp.t');
-@ioexcl=('argv.t','dup.t','fs.t','inplace.t','pipe.t');
+@ioexcl=('argv.t','dup.t','fs.t','pipe.t');
 @libexcl=('db-btree.t','db-hash.t','db-recno.t',
           'gdbm.t','io_dup.t', 'io_pipe.t', 'io_sel.t', 'io_sock.t',
           'ndbm.t','odbm.t','open2.t','open3.t', 'ph.t', 'posix.t');
@@ -162,7 +162,7 @@ while ($test = shift) {
        } else {
            $switch = '';
        }
-       open(results,"\$ MCR Sys\$Disk:[]Perl. $switch $test |") || (print "can't run.\n");
+       open(results,"\$ MCR Sys\$Disk:[]Perl. \"-I[-.lib]\" $switch $test |") || (print "can't run.\n");
     $ok = 0;
     $next = 0;
     while (<results>) {