| Subject: | [PATCH] ExtUtils::Liblist::Kid::_vms_ext, better debug check |
This patch modifies the VMS-specific code that finds which Perl shareable image (dynamic
library) to link against. It wil now use linker flags rather than compiler flags to determine if the
shareable image was linked debug. Without this, an OPTIMIZE specification passed to
WriteMakefile could cause us to link against the wrong image (or one that doesn't exist).
| Subject: | kidlib.patch.txt |
--- lib/ExtUtils/Liblist/Kid.pm;-0 Tue Feb 27 22:29:38 2007
+++ lib/ExtUtils/Liblist/Kid.pm Sat Mar 3 16:25:33 2007
@@ -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'});