diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-10-25 03:13:53 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-10-25 03:13:53 +0000 |
| commit | e3830a4ec012ee625f1b3bc63b5b18c656f377da (patch) | |
| tree | 7d45572faf363421532806fe5109c5013c4f786b /lib/ExtUtils | |
| parent | 22d4bb9ccb8701e68f9243547d7e3a3c55f70908 (diff) | |
| download | perl-e3830a4ec012ee625f1b3bc63b5b18c656f377da.tar.gz | |
Cleanup from prior patch (Charles Lane?):
- improve handling of MFDs in Basename and Path
- default to no xsubpp line # munging when building debug images
p4raw-id: //depot/vmsperl@7430
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index d966c7d236..377d5d124d 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -881,6 +881,11 @@ sub tool_xsubpp { unshift( @tmargs, $self->{XSOPT} ); } + if ($Config{'ldflags'} && + $Config{'ldflags'} =~ m!/Debug!i && + (!exists($self->{XSOPT}) || $self->{XSOPT} !~ /linenumbers/)) { + unshift(@tmargs,'-nolinenumbers'); + } my $xsubpp_version = $self->xsubpp_version($self->catfile($xsdir,'xsubpp')); # What are the correct thresholds for version 1 && 2 Paul? @@ -1209,7 +1214,7 @@ $(BASEEXT).opt : Makefile.PL s/.*[:>\/\]]//; # Trim off dir spec $upcase ? uc($_) : $_; } split ' ', $self->eliminate_macros($self->{OBJECT}); - my($tmp, @lines,$elt) = ''; + my($tmp,@lines,$elt) = ''; $tmp = shift @omods; foreach $elt (@omods) { $tmp .= ",$elt"; |