At 12:15 AM -0600 11/14/07, John E. Malmberg wrote:
>I am still trying to find out why xs.t is failing on VMS.
>
>It appears that the failure is occurring before test 15, in sub _construct()
>
>_construct
>
>$package =
> $VAR1 = 'Module::Build';
>
>%input =
> $VAR1 = 'module_name';
> $VAR2 = 'Simple::With::Deep::Name';
> $VAR3 = 'license';
> $VAR4 = 'perl';
>
>I am calling Dumper($self) right after $self is blessed, but it is not showing
>anything that makes sense to me.
>
>
>$VAR1 = bless( {
> 'phash' => {},
> 'args' => {},
> 'config' => bless( {
> 'stack' => {},
> 'values' => {}
> }, 'Module::Build::Config' ),
> 'properties' => {
> 'base_dir' =>
> 'PROJECT_ROOT:[PERL-BLEAD.t._tmp18057.Simple-With-Deep-Name]',
> 'module_name' => 'Simple::With::Deep::Name',
> 'license' => 'perl',
> 'mb_version' => '0.280801'
> }
> }, 'Module::Build' );
>
>At this point any attempt to reference $self->blib results in the program
>dying:
>
>Can't locate object method "blib
>" via package "Module::Build" at
>/PROJECT_ROOT/perl-blead/lib/Module/Build/Base.pm line 141.
>cannot chdir to PROJECT_ROOT:[PERL-BLEAD.t._tmp18057.Simple-With-Deep-Name]
>from PROJECT_ROOT:[PERL-BLEAD.t._tmp18057]: no such file
> or directory, aborting. at ../lib/Module/Build/t/lib/MBTest.pm line 71
>END failed--call queue aborted at [-.lib.module.build.t]xs.t line 107.
># Looks like you planned 22 tests but only ran 14.
># Looks like your test died just after 14.
>%SYSTEM-F-ABORT, abort
>
>I am not sure where else to look for to try to isolate this.
I've gone through essentially the same steps you have and not gotten
any farther. I've attached a smaller reproducer test; it's still not
really that small, but remove any line from it and you don't get the
failure. There appears to be something about deleting a directory
named 'blib' that corrupts the class object of the same name. We can
band-aid over it by doing the following, which we perhaps should do
at this point:
--- lib/Module/Build/Platform/VMS.pm;-0 Thu Oct 25 04:50:40 2007
+++ lib/Module/Build/Platform/VMS.pm Wed Nov 14 07:42:00 2007
@@ -36,6 +36,7 @@ sub _set_defaults {
$self->SUPER::_set_defaults(@_);
$self->{properties}{build_script} = 'Build.com';
+ $self->{properties}{blib} = '[.blib]';
}
[end]
--
________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
foo.t
Description: Binary data
