This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH: perl@20760] clean up quotation issue for use with MMS on VMS
authorPeter Prymmer <PPrymmer@factset.com>
Tue, 19 Aug 2003 21:50:12 +0000 (17:50 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 21 Aug 2003 14:05:18 +0000 (14:05 +0000)
Message-ID: <OF261B78F0.19FBE242-ON85256D88.00091B48-85256D88.000A179D@factset.com>
Date: Tue, 19 Aug 2003 21:50:12 -0400

p4raw-id: //depot/perl@20797

lib/ExtUtils/MM_Unix.pm

index 23701e0..80e7a6e 100644 (file)
@@ -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