Use "perl" property everywhere instead of $^X

git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@4375 50811bd7-b8ce-0310-adc1-d9db26280581
FROGGS · Aug 20, 2003 · 8a0a833 · 8a0a833
1 parent 6fb8eba
commit 8a0a833
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/Module/Build/Base.pm b/lib/Module/Build/Base.pm
@@ -991,7 +991,7 @@ sub ACTION_test {
 
   if (@$tests) {
     # Work around a Test::Harness bug that loses the particular perl we're running under
-    local $^X = $self->{config}{perlpath} unless $Test::Harness::VERSION gt '2.01';
+    local $^X = $p->{perl} unless $Test::Harness::VERSION gt '2.01';
     Test::Harness::runtests(@$tests);
   } else {
     print("No tests defined.\n");
@@ -1822,8 +1822,9 @@ sub compile_xs {
 
     my $typemap =  $self->find_module_by_name('ExtUtils::typemap', \@INC);
     my $cf = $self->{config};
+    my $perl = $self->{properties}{perl};
 
-    my $command = (qq{$^X "-I$cf->{installarchlib}" "-I$cf->{installprivlib}" "$xsubpp" -noprototypes } .
+    my $command = (qq{$perl "-I$cf->{installarchlib}" "-I$cf->{installprivlib}" "$xsubpp" -noprototypes } .
 		   qq{-typemap "$typemap" "$file"});
 
     print $command;