Re: [Module::Build] Re: [PATCH] add Module::Build 0.27_08

[Ken W. <ke...@ma...>]

On Mar 7, 2006, at 11:57 AM, Andy Dougherty wrote:

> On Tue, 7 Mar 2006, Yitzchak Scott-Thoennes wrote:
>
>> Can you try:
>>
>> --- lib/Module/Build/Base.pm.orig	2006-03-06 07:43:57.093750000 -0800
>> +++ lib/Module/Build/Base.pm	2006-03-07 09:00:28.884844800 -0800
>> @@ -334,7 +334,8 @@
>>      $thisperl .= $exe unless $thisperl =~ m/$exe$/i;
>>    }
>>
>> -  foreach my $perl ( $c->{perlpath},
>> +  foreach my $perl ( File::Spec->rel2abs($^X),
>> +                     $c->{perlpath},
>>  		     map File::Spec->catfile($_, $thisperl), File::Spec->path()
>>  		   ) {
>>      return $perl if -f $perl and $proto->_perl_is_same($perl);
>
> I'm afraid that didn't help either, since the t/_tmp/Simple/ directory
> doesn't have a perl executable.

Hmm - so in your case is $^X just 'perl'?  If that's the only pointer  
to the currently running perl, we might have to do a PATH search for  
it.  Maybe only when it doesn't contain slashes or something.

  -Ken