From: Charles Bailey <bailey@newman.upenn.edu>
Date: Thu, 2 Mar 2000 04:02:44 +0000 (+0000)
Subject: Take advantage of new subprocess invocation (Charles Lane)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e8b254b29687c0b0e15d55690a01ac09a7f0f0c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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`;