On Sat, Aug 30, 2003 at 02:24:43PM -0400, [EMAIL PROTECTED] wrote:
> I had tried to include an illustration of the inability
> to build Pod2VMSHlp 1.02.
I was thinking of just grabbing 6.16 off CPAN, patching it and trying out
its tests, but this works.
> Unable to find a perl 5 (by these names:
> dka200:[users.perl.581rc.perl_20898_root]ndbgperl.exe;1.exe perl.exe
> perl5.exe perl5_8_1
> .exe miniperl.exe, in these dirs: perl_root:[000000])
Ah ha! That's this logic failing:
$thisperl .= $Config{exe_ext} unless $thisperl =~ m/$Config{exe_ext}$/i;
Its not expecting the ;1 on the end. It doesn't effect other platforms
because they don't have those semantics.
Try this.
--- MM_Unix.pm 3 Aug 2003 23:42:45 -0000 1.184
+++ MM_Unix.pm 30 Aug 2003 20:18:57 -0000
@@ -2321,7 +2321,10 @@
# Build up a set of file names (not command names).
my $thisperl = $self->canonpath($^X);
- $thisperl .= $Config{exe_ext} unless $thisperl =~ m/$Config{exe_ext}$/i;
+ $thisperl .= $Config{exe_ext} unless
+ # VMS might have a file version # at the end
+ $Is_VMS ? $thisperl =~ m/(;\d+)?$Config{exe_ext}$/i
+ : $thisperl =~ m/$Config{exe_ext}$/i;
# We need a relative path to perl when in the core.
$thisperl = $self->abs2rel($thisperl) if $self->{PERL_CORE};
--
Michael G Schwern [EMAIL PROTECTED] http://www.pobox.com/~schwern/
grep { ref and ref !~ /^[A-Z]+$/ } kill 9, @ARGV;
