hv_fetchs() support

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / split_command.t

diff --git a/lib/ExtUtils/t/split_command.t b/lib/ExtUtils/t/split_command.t
index 49e2629..a92f1a5 100644 (file)
--- a/lib/ExtUtils/t/split_command.t
+++ b/lib/ExtUtils/t/split_command.t
@@ -54,7 +54,7 @@ is( $mm->split_command($echo), 0,  'no args means no commands' );
 sub _run {
     my @cmds = @_;
 
-    s{\$\(PERLRUN\)}{$perl} foreach @cmds;
+    s{\$\(ABSPERLRUN\)}{$perl} foreach @cmds;
     if( $Is_VMS ) {
         s{-\n}{} foreach @cmds
     }