VMS override for Module::Build::Base::find_perl_interpreter,

allowing tests to pass from t/TEST as well as harness.

p4raw-id: //depot/perl@32028

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