Author: ericwilhelm
Date: Sun Oct 7 09:49:19 2007
New Revision: 10057
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/lib/Module/Build/Base.pm
Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
Log:
** fix bug #29810 [Craig A. Berry] **
lib/Module/Build/Platform/VMS.pm - find_perl_interpreter() is just $^X
lib/Module/Build/Base.pm - no vms in find_perl_interpreter()
Changes - update
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Sun Oct 7 09:49:19 2007
@@ -1,5 +1,7 @@
Revision history for Perl extension Module::Build.
+ - VMS find_perl_interpreter() is just $^X (bug #29810) [Craig A. Berry]
+
- Some large VMS fixes, mostly having to do with the non-case-
preserving nature of most VMS filesystems, but also correcting for
illegal characters in VMS file specs. [John E. Malmberg and Craig
Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Sun Oct 7 09:49:19 2007
@@ -446,10 +446,7 @@
my $exe = $c->get('exe_ext');
foreach my $thisperl ( @potential_perls ) {
- if ($proto->is_vmsish) {
- # VMS might have a file version at the end
- $thisperl .= $exe unless $thisperl =~ m/$exe(;\d+)?$/i;
- } elsif (defined $exe) {
+ if (defined $exe) {
$thisperl .= $exe unless $thisperl =~ m/$exe$/i;
}
Modified: Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Platform/VMS.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Platform/VMS.pm Sun Oct 7 09:49:19 2007
@@ -343,6 +343,17 @@
}
+=item find_perl_interpreter
+
+On VMS, $^X returns the fully qualified absolute path including version
+number. It's logically impossible to improve on it for getting the perl
+we're currently running, and attempting to manipulate it is usually
+lossy.
+
+=cut
+
+sub find_perl_interpreter { return $^X; }
+
=back
=head1 AUTHOR
