This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
VMS override for Module::Build::Base::find_perl_interpreter,
authorCraig A. Berry <craigberry@mac.com>
Thu, 4 Oct 2007 18:02:38 +0000 (18:02 +0000)
committerCraig 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

index 989f0de..d931c93 100644 (file)
@@ -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