Michael Schwern wrote:
!Do you think it would be hard to add a test_harness target into
!descrip_mms.template? It would help a lot diagnosing the VMS test
failures.
I think it should be possible to add such a target, but I do not have
a working copy yet...
!> lib/ExtUtils/t/basic.................FAILED at test 22
!
!That's 'make test' failing.
!
!> lib/ExtUtils/t/Constant..............FAILED at test 5
Here is a proposed patch to address these two test failures
as well as to make it possible to build at least some CPAN
modules with a "-Dusevmsdebug" built and installed perl:
diff -ru perl_20760/lib/ExtUtils/MM_Unix.pm perl/lib/ExtUtils/MM_Unix.pm
--- perl_20760/lib/ExtUtils/MM_Unix.pm 2003-08-18 12:48:39.000000000 -0400
+++ perl/lib/ExtUtils/MM_Unix.pm 2003-08-19 21:33:42.000000000 -0400
@@ -2327,6 +2327,15 @@
$thisperl = $self->abs2rel($thisperl) if $self->{PERL_CORE};
my @perls = ($thisperl);
+ my $ndbg = '';
+ if ( $Is_VMS ) {
+ if ( defined( $Config{usevmsdebug} ) ) {
+ if ( $Config{usevmsdebug} eq 'define' ) {
+ push @perls, map { "$_$Config{exe_ext}" } ('ndbgperl');
+ $ndbg = 'ndbg';
+ }
+ }
+ }
push @perls, map { "$_$Config{exe_ext}" }
('perl', 'perl5', "perl$Config{version}");
@@ -2346,7 +2355,7 @@
# supply switches with perl
# Define 'FULLPERL' to be a non-miniperl (used in test: target)
- ($self->{FULLPERL} = $self->{PERL}) =~ s/miniperl/perl/i
+ ($self->{FULLPERL} = $self->{PERL}) =~ s/miniperl/${ndbg}perl/i
unless $self->{FULLPERL};
# Little hack to get around VMS's find_perl putting "MCR" in front
End of Patch.
Here it as as attachment:
(See attached file: mm_unix_fin.patch)
I would be very remiss in posting this if I did not
also mention to the pumpking that last week Michael
expressed a desire not to include such a patch into
MakeMaker when I was discussing it on the vmsperl
mailing list. His comments are in the archive at:
http://www.xray.mpe.mpg.de/mailing-lists/vmsperl/2003-08/msg00072.html
If not applied then I'll need to apply such a patch to perl 5.8.1
for use here with a perl_root built with debug on (kept separate
from the nondebug perl_root).
Peter Prymmer
mm_unix_fin.patch
Description: Binary data
