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

[Randy W. S. <ml...@th...>]

Dominic Dunlop wrote:
> On 2006–03–06, at 17:12, Rafael Garcia-Suarez wrote:
> 
>> Yitzchak Scott-Thoennes wrote:
>>
>>> Patch to integrate Module::Build 0.27_08 to the core,
>>> Craig's initial changes for VMS are included.
>>>
>>> I'd appreciate it if folks give it a spin (which might be facilitated
>>> by having it applied...).
>>
>>
>> Thanks, applied as #27389. (thanks for the nice, clean patch BTW.)
>> Let's see how it turns...
> 
> 
> Eek! Not well. 1,117 lines of complaints from  make test  on blead  
> attached. The perl that produced them:

Looks like the problem happens here:

sub find_perl_interpreter {
   return $^X if File::Spec->file_name_is_absolute($^X);
   my $proto = shift;
   my $c = ref($proto) ? $proto->config : \%Config::Config;
   my $exe = $c->{exe_ext};

   my $thisperl = $^X;
   if ($proto->os_type eq 'VMS') {
     # VMS might have a file version at the end
     $thisperl .= $exe unless $thisperl =~ m/$exe(;\d+)?$/i;
   } elsif (defined $exe) {
     $thisperl .= $exe unless $thisperl =~ m/$exe$/i;
   }

   foreach my $perl ( $c->{perlpath},
		     map File::Spec->catfile($_, $thisperl), File::Spec->path()
		   ) {
     return $perl if -f $perl and $proto->_perl_is_same($perl);
   }
   return;
}

Where we try to find the interpreter. It's falling all the way through 
and returning undef. Any idea where we're missing it here?

BTW, _perl_is_same() just looks like:

sub _perl_is_same {
   my ($self, $perl) = @_;
   return `$perl -MConfig=myconfig -e print -e myconfig` eq 
Config->myconfig;
}

Randy.