From: Peter Prymmer <PPrymmer@factset.com>
Date: Tue, 19 Aug 2003 21:50:12 +0000 (-0400)
Subject: Re: [PATCH: perl@20760] clean up quotation issue for use with MMS on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dccec5e607e831ba5c38d0901281ab237afd81eb;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH: perl@20760] clean up quotation issue for use with MMS on VMS
Message-ID: <OF261B78F0.19FBE242-ON85256D88.00091B48-85256D88.000A179D@factset.com>
Date: Tue, 19 Aug 2003 21:50:12 -0400

p4raw-id: //depot/perl@20797
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 23701e0..80e7a6e 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -2327,6 +2327,15 @@ sub init_PERL {
     $thisperl = $self->abs2rel($thisperl) if $self->{PERL_CORE};
 
     my @perls = ($thisperl);
+    my $ndbg = '';
+    if ( $Is_VMS ) {
+        if ( defined( $Config{usevmsdebug} ) ) {
+            if ( $Config{usevmsdebug} eq 'define' ) {
+                push @perls, map { "$_$Config{exe_ext}" } ('ndbgperl');
+                $ndbg = 'ndbg';
+            }
+        }
+    }
     push @perls, map { "$_$Config{exe_ext}" }
                      ('perl', 'perl5', "perl$Config{version}");
 
@@ -2346,7 +2355,7 @@ sub init_PERL {
     # supply switches with perl
 
     # Define 'FULLPERL' to be a non-miniperl (used in test: target)
-    ($self->{FULLPERL} = $self->{PERL}) =~ s/miniperl/perl/i
+    ($self->{FULLPERL} = $self->{PERL}) =~ s/miniperl/${ndbg}perl/i
 	unless $self->{FULLPERL};
 
     # Little hack to get around VMS's find_perl putting "MCR" in front