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

[Yitzchak Scott-T. <sth...@ef...>]

On Tue, Mar 07, 2006 at 06:38:13AM -0500, Randy W. Sims wrote:
> 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?

It should be finding it in $c->{perlpath}.  Dominic, can you add a

  warn "checking in $_, \$^X is $^X, perl is $perl, -f \$perl is ", -f $perl;

at the beginning of the loop and a

  warn "not found"

at the end?

On darwin, is $^X just the filename, or is it a relative path?

> 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.