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

[Dominic D. <sho...@ma...>]

On 2006=9603=9607, at 20:34, Yitzchak Scott-Thoennes wrote:

> On Tue, Mar 07, 2006 at 07:58:59PM +0100, Dominic Dunlop wrote:
>> Sorry for the absence.
>>
>> On 2006?03?07, at 18:04, Yitzchak Scott-Thoennes wrote:
>>
>>> Does this help:
>>>
>>> --- lib/Module/Build/Base.pm.orig	2006-03-06 07:43:57.093750000 =20=

>>> -0800
>>> +++ lib/Module/Build/Base.pm	2006-03-07 09:00:28.884844800 =
-0800
>>> @@ -334,7 +334,8 @@
>>>     $thisperl .=3D $exe unless $thisperl =3D~ 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);
>>> End of Patch.
>>
>> I think this has been overtaken by events, but no, it doesn't:
>
> Hmm, is $c->{properties}{perl} set correctly at this point?

No.

With this debugging line

     warn "Checking $perl: \$^X is $^X, \$c->{properties}{perl} is $c-=20=

 >{properties}{perl}, -f \$perl is ", -f $perl;

I get

$ ./TEST ../lib/Module/Build/t/basic.t
t/../lib/Module/Build/t/basic....Warning: Removing existing directory =20=

'/Volumes/Tottie/Other/src/Perl/perl-current-working/t/_tmp/Simple'
Use of uninitialized value in concatenation (.) or string at /Volumes/=20=

Tottie/Other/src/Perl/perl-current-working/t/../lib/Module/Build/=20
Base.pm line 341.
Use of uninitialized value in warn at /Volumes/Tottie/Other/src/Perl/=20
perl-current-working/t/../lib/Module/Build/Base.pm line 341.
Checking /Volumes/Tottie/Other/src/Perl/perl-current-working/t/_tmp/=20
Simple/perl: $^X is ./perl, $c->{properties}{perl} is , -f $perl is  =20
at /Volumes/Tottie/Other/src/Perl/perl-current-working/t/../lib/=20
Module/Build/Base.pm line 341.
Use of uninitialized value in concatenation (.) or string at /Volumes/=20=

Tottie/Other/src/Perl/perl-current-working/t/../lib/Module/Build/=20
Base.pm line 341.
Use of uninitialized value in warn at /Volumes/Tottie/Other/src/Perl/=20
perl-current-working/t/../lib/Module/Build/Base.pm line 341.
Checking /usr/local/bin/perl5.9.4: $^X is ./perl, $c->{properties}=20
{perl} is , -f $perl is  at /Volumes/Tottie/Other/src/Perl/perl-=20
current-working/t/../lib/Module/Build/Base.pm line 341.
Use of uninitialized value in concatenation (.) or string at /Volumes/=20=

Tottie/Other/src/Perl/perl-current-working/t/../lib/Module/Build/=20
Base.pm line 341.
Use of uninitialized value in warn at /Volumes/Tottie/Other/src/Perl/=20
perl-current-working/t/../lib/Module/Build/Base.pm line 341.
Checking /Users/domo/bin/perl: $^X is ./perl, $c->{properties}{perl} =20
is , -f $perl is  at /Volumes/Tottie/Other/src/Perl/perl-current-=20
working/t/../lib/Module/Build/Base.pm line 341.
Use of uninitialized value in concatenation (.) or string at /Volumes/=20=

Tottie/Other/src/Perl/perl-current-working/t/../lib/Module/Build/=20
Base.pm line 341.
Use of uninitialized value in warn at /Volumes/Tottie/Other/src/Perl/=20
perl-current-working/t/../lib/Module/Build/Base.pm line 341.

and so on.
--=20
Dominic Dunlop