From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 4 Mar 2007 22:58:29 +0000 (+0000)
Subject: Use linker flags rather than compiler flags in ExtUtils::Liblist::Kid::_vms_ext
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=836b3148890b0eb05368d0a6de74ad18ea8b0514;p=p5sagit%2Fp5-mst-13.2.git

Use linker flags rather than compiler flags in ExtUtils::Liblist::Kid::_vms_ext
when determining whether the perlshr library was linked debug. Also submitted
to CPAN RT queue at <http://rt.cpan.org/Ticket/Display.html?id=25268>.

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

diff --git a/lib/ExtUtils/Liblist/Kid.pm b/lib/ExtUtils/Liblist/Kid.pm
index 2f8e527..b1d4236 100644
--- a/lib/ExtUtils/Liblist/Kid.pm
+++ b/lib/ExtUtils/Liblist/Kid.pm
@@ -10,7 +10,7 @@ use 5.00503;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = 1.32;
+$VERSION = 1.32_01;
 
 use Config;
 use Cwd 'cwd';
@@ -376,8 +376,7 @@ sub _vms_ext {
   $verbose ||= 0;
 
   my(@crtls,$crtlstr);
-  my($dbgqual) = $self->{OPTIMIZE} || $Config{'optimize'} ||
-                 $self->{CCFLAGS}   || $Config{'ccflags'};
+  my($dbgqual) = $self->{'ldflags'} . $Config{'ldflags'};
   @crtls = ( ($dbgqual =~ m-/Debug-i ? $Config{'dbgprefix'} : '')
               . 'PerlShr/Share' );
   push(@crtls, grep { not /\(/ } split /\s+/, $Config{'perllibs'});