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
[EMAIL PROTECTED] 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
