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,
[perl5.git] / 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