Integrate with mainperl.

[p5sagit/p5-mst-13.2.git] / t / pragma / subs.t

diff --git a/t/pragma/subs.t b/t/pragma/subs.t
index 42251f6..c8eb2c0 100755 (executable)
--- a/t/pragma/subs.t
+++ b/t/pragma/subs.t
@@ -49,7 +49,7 @@ for (@prgs){
                   `MCR $^X $switch $tmpfile` :
                  $Is_MSWin32 ?
                   `.\\perl -I../lib $switch $tmpfile 2>&1` :
-                  `sh -c './perl $switch $tmpfile' 2>&1`;
+                  `./perl $switch $tmpfile 2>&1`;
     my $status = $?;
     $results =~ s/\n+$//;
     # allow expected output to be written as if $prog is on STDIN