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

[Andy D. <dou...@la...>]

On Tue, 7 Mar 2006, Ken Williams wrote:

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

No, in this case, $^X is './perl', where the '.' is perl's t/ directory.  
This is the same as Dominic's reported on OSX.  The make test target does 
the equivalent of

 	 cd t; ./perl harness

So we don't have to go searching PATH -- we just have to remember where we 
started.  Apparently there's a chdir() in there somewhere.

-- 
    Andy Dougherty		dou...@la...