This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use linker flags rather than compiler flags in ExtUtils::Liblist::Kid::_vms_ext
authorCraig A. Berry <craigberry@mac.com>
Sun, 4 Mar 2007 22:58:29 +0000 (22:58 +0000)
committerCraig A. Berry <craigberry@mac.com>
Sun, 4 Mar 2007 22:58:29 +0000 (22:58 +0000)
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

lib/ExtUtils/Liblist/Kid.pm

index 2f8e527..b1d4236 100644 (file)
@@ -10,7 +10,7 @@ use 5.00503;
 
 use strict;
 use vars qw($VERSION);
 
 use strict;
 use vars qw($VERSION);
-$VERSION = 1.32;
+$VERSION = 1.32_01;
 
 use Config;
 use Cwd 'cwd';
 
 use Config;
 use Cwd 'cwd';
@@ -376,8 +376,7 @@ sub _vms_ext {
   $verbose ||= 0;
 
   my(@crtls,$crtlstr);
   $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'});
   @crtls = ( ($dbgqual =~ m-/Debug-i ? $Config{'dbgprefix'} : '')
               . 'PerlShr/Share' );
   push(@crtls, grep { not /\(/ } split /\s+/, $Config{'perllibs'});