hv_fetchs() support

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

diff --git a/lib/ExtUtils/t/oneliner.t b/lib/ExtUtils/t/oneliner.t
index 5e0521b..84156f0 100644 (file)
--- a/lib/ExtUtils/t/oneliner.t
+++ b/lib/ExtUtils/t/oneliner.t
@@ -28,7 +28,7 @@ isa_ok($mm, 'ExtUtils::MM_Any');
 sub try_oneliner {
     my($code, $switches, $expect, $name) = @_;
     my $cmd = $mm->oneliner($code, $switches);
-    $cmd =~ s{\$\(PERLRUN\)}{$^X};
+    $cmd =~ s{\$\(ABSPERLRUN\)}{$^X};
 
     # VMS likes to put newlines at the end of commands if there isn't
     # one already.