From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 4 Oct 2007 18:02:38 +0000 (+0000)
Subject: VMS override for Module::Build::Base::find_perl_interpreter,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fca1d8b34fac5a740ae67bc3b873bc01cd76a8a9;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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