Take advantage of new subprocess invocation (Charles Lane)

p4raw-id: //depot/vmsperl@5425

diff --git a/t/op/runlevel.t b/t/op/runlevel.t
index 1d923cf..e988ad9 100755 (executable)
--- a/t/op/runlevel.t
+++ b/t/op/runlevel.t
@@ -32,7 +32,7 @@ for (@prgs){
     print TEST "$prog\n";
     close TEST;
     my $results = $Is_VMS ?
-                 `MCR $^X "-I[-.lib]" $switch $tmpfile` :
+                  `MCR $^X "-I[-.lib]" $switch $tmpfile 2>&1` :
                      $Is_MSWin32 ?  
                          `.\\perl -I../lib $switch $tmpfile 2>&1` :
                              `./perl $switch $tmpfile 2>&1`;

diff --git a/t/pragma/strict.t b/t/pragma/strict.t
index 2b8c587..c4d6416 100755 (executable)
--- a/t/pragma/strict.t
+++ b/t/pragma/strict.t
@@ -65,9 +65,7 @@ for (@prgs){
     open TEST, ">$tmpfile";
     print TEST $prog,"\n";
     close TEST;
-    my $results = $Is_VMS ?
-                  `MCR $^X $switch $tmpfile` :
-                 $Is_MSWin32 ?
+    my $results = $Is_MSWin32 ?
                   `.\\perl -I../lib $switch $tmpfile 2>&1` :
                   `./perl $switch $tmpfile 2>&1`;
     my $status = $?;

diff --git a/t/pragma/subs.t b/t/pragma/subs.t
index c8eb2c0..fe84f5e 100755 (executable)
--- a/t/pragma/subs.t
+++ b/t/pragma/subs.t
@@ -46,7 +46,7 @@ for (@prgs){
     print TEST $prog,"\n";
     close TEST;
     my $results = $Is_VMS ?
-                  `MCR $^X $switch $tmpfile` :
+                  `./perl $switch $tmpfile 2>&1` :
                  $Is_MSWin32 ?
                   `.\\perl -I../lib $switch $tmpfile 2>&1` :
                   `./perl $switch $tmpfile 2>&1`;

diff --git a/t/pragma/warnings.t b/t/pragma/warnings.t
index 41324e6..9629c37 100644 (file)
--- a/t/pragma/warnings.t
+++ b/t/pragma/warnings.t
@@ -76,7 +76,7 @@ for (@prgs){
     print TEST $prog,"\n";
     close TEST;
     my $results = $Is_VMS ?
-                  `MCR $^X $switch $tmpfile` :
+                  `./perl "-I../lib" $switch $tmpfile 2>&1` :
                  $Is_MSWin32 ?
                   `.\\perl -I../lib $switch $tmpfile 2>&1` :
                   `./perl -I../lib $switch $tmpfile 2>&1`;