1 files changed, 1 insertions, 1 deletions
diff --git a/t/pragma/subs.t b/t/pragma/subs.t
index c8eb2c087f..fe84f5ef76 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`;