[perl #37725] perl segfaults on reversed array reference

[perl5.git] / t / op / anonsub.t

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