This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6e324d0
)
VMS override for Module::Build::Base::find_perl_interpreter,
author
Craig A. Berry
<craigberry@mac.com>
Thu, 4 Oct 2007 18:02:38 +0000
(18:02 +0000)
committer
Craig A. Berry
<craigberry@mac.com>
Thu, 4 Oct 2007 18:02:38 +0000
(18:02 +0000)
allowing tests to pass from t/TEST as well as harness.
p4raw-id: //depot/perl@32028
lib/Module/Build/Platform/VMS.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/Module/Build/Platform/VMS.pm
b/lib/Module/Build/Platform/VMS.pm
index
989f0de
..
d931c93
100644
(file)
--- a/
lib/Module/Build/Platform/VMS.pm
+++ b/
lib/Module/Build/Platform/VMS.pm
@@
-343,6
+343,16
@@
sub _detildefy {
}
+=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