At 7:24 PM -0500 12/17/01, Michael G Schwern wrote:
>On Mon, Dec 17, 2001 at 08:59:59AM -0600, Craig A. Berry wrote:
> > It would also
> > be interesting to see the result of "show logical DCL$PATH".
>
>$ show logical DCL$PATH
> "DCL$PATH" = "FU_UTL" (LNM$PROCESS_TABLE)
> = "FU_BIN"
> = "PBM-BIN"
> = "FU_LIB"
>1 "FU_UTL" = "UTL$DISK:[UTL]" (LNM$PROCESS_TABLE)
>1 "FU_BIN" = "UTL$DISK:[BIN.AXP]" (LNM$PROCESS_TABLE)
>1 "PBM-BIN" = "UTL$DISK:[BIN.AXP.PBM]" (LNM$PROCESS_TABLE)
>1 "FU_LIB" = "UTL$DISK:[LIB]" (LNM$PROCESS_TABLE)
Hmm. I guess C<DIRECTORY DCL$PATH:MINIPERL.EXE> would be more likely
to reveal how it finds an old miniperl when it shouldn't. But
actually watching it do its thing might be better yet. The following
whacked out of MM_Unix.pm:
$ type findperl.pl
use ExtUtils::MakeMaker;
use Config;
my ($component,@defpath,$myperl);
foreach $component (MM->{PERL_SRC}, MM->path(), $Config::Config{binexp}) {
push @defpath, $component if defined $component;
}
$myperl =
MM->find_perl(5.0, [ MM->canonpath($^X), 'miniperl',
'perl','perl5',"perl$Config{version}" ],
\@defpath, 2 );
print "The perl I found was $myperl\n";
which for me yields:
$ perl findperl.pl
Looking for perl 5 by these names:
perl5_7_2 perl5 miniperl perl briana$dka0:[craig.perl]perl.exe;1,
in these dirs:
perl_root:[000000]
Checking perl5_7_2
Checking perl5
Checking miniperl
Checking perl
Using PERL=perl
The perl I found was perl
>For future reference, report upon finding bugs in my modules. If
>you're working on a patch mention that but I might have already fixed
>it as I have with some of these.
>
>You've got a VMS friendly module author here, exploit it.
Will do. Thanks.
>
>Try this one (not for public consumption) I've got it passing 100% on
>VMS 5.005_03.
>http://www.pobox.com/~schwern/src/Test-Harness-2.00_05.tar.gz
All tests pass with bleadperl, OVMS Alpha 7.3, but one test did spew
a lot of complaints:
t/strap-analyze....
Use of uninitialized value in numeric eq (==) at blib/lib/Test/Harness/Straps.pm line
153, <FILE> line 11.
Use of uninitialized value in numeric eq (==) at blib/lib/Test/Harness/Straps.pm line
153, <FILE> line 11.
Use of uninitialized value in numeric eq (==) at blib/lib/Test/Harness/Straps.pm line
153, <FILE> line 11.
and lots more of the same.
--
____________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"Literary critics usually know what they're
talking about. Even if they're wrong."
-- Perl creator Larry Wall
