On Nov 4, 2007, at 10:44 PM, Craig A. Berry wrote:
> At 7:14 PM +0100 11/3/07, Jos I. Boumans wrote:
>> Hi John,
>>
>> On Nov 3, 2007, at 6:24 PM, John E. Malmberg
wrote:
>>
>>> [-.lib.CPANPLUS.T]20_Cpanplus-Dist-MM.t
>>>
>>> This is spawning a script to run Make Maker,
with the
>>> instructions to use PERL_ROOT[lib] as the
include path. As
>>> PERL_ROOT is pointing to an incompatible and
older version of the
>>> include library, the test fails.
>>
>> I believe I've applied all patches you sent, but
there wasn't one for
>> this specific issue. If there's something I can do
to help you
>> track it
>> down, then by all means ask of course.
>
> As far as I can tell, the assignment of perl_root is
irrelevant, or
> at least is not the first problem we trip over. The
problem is that
> we're putting a garbage path at the beginning of INC.
With
> blead 32219 I see this:
>
> ok 8 - Extracting module to
D0:[CRAIG.PERL.LIB.CPANPLUS.T.dummy-
> cpanplus.5_10_0.build.Foo-Bar-0_01]
> Can't locate strict.pm in INC ( INC contains:
//d0/craig/perl/lib/
>
cpanplus/t////lib//d0/craig/perl/lib/cpanplus/t/inc/D0/CRAIG
/PERL
> /lib perl_root:[lib.VMS_AXP.5_10_0] perl_root:[lib]
perl_root:
> [lib.site_perl.VMS_AXP] perl_root:[lib.site_perl] .) at
d0:[craig.perl
> .lib.cpanplus.bin]cpanp-run-perl line 1.
> BEGIN failed--compilation aborted at d0:
> [craig.perl.lib.cpanplus.bin]cpanp-run-perl line 1.
> %RMS-F-DIR, error in directory name
> not ok 9 - Testing module
> # Failed test 'Testing module'
> # at [-.lib.cpanplus.t]20_cpanplus-dist-mm.t line
103.
>
> I'll try to hunt down later where that bogus path gets
constructed.
My bet would be CPANPLUS/t/inc/conf.pl:
### paths to our own 'lib' and 'inc' dirs
### include them, relative from t/
my paths = map { "$FindBin::Bin/$_" }
qw[../lib inc];
### absolute'ify the paths in INC;
my rel2abs = map { File::Spec->rel2abs( $_ ) }
grep { not
File::Spec->file_name_is_absolute
( $_ ) } INC;
### use require to make devel::cover happy
require lib;
for ( paths, rel2abs ) {
my $l = 'lib';
$l->import( $_ )
}
Perhaps File::Spec strikes again?
--
Jos Boumans
"Two rules to success in life:
1. Don't tell people everything you know"
--Sassan Tat
|