diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-02-28 02:51:00 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-02-28 02:51:00 +0000 |
| commit | b6837a3b27252f74ff8399514c00fa18a38dd3a6 (patch) | |
| tree | 7675b6a013750668456e27509daacd6804832173 /lib | |
| parent | 752635eac25aa1a1ce0245c7df3133d95799c5e4 (diff) | |
| download | perl-b6837a3b27252f74ff8399514c00fa18a38dd3a6.tar.gz | |
Support case-sensitive symbols usage in linker
p4raw-id: //depot/vmsperl@5302
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index 44fa7e2496..5f54b10083 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -1182,12 +1182,18 @@ $(BASEEXT).opt : Makefile.PL push @m, ' $(PERL) -e "print ""$(INST_STATIC)/Include='; if ($self->{OBJECT} =~ /\bBASEEXT\b/ or - $self->{OBJECT} =~ /\b$self->{BASEEXT}\b/i) { push @m, '$(BASEEXT)'; } + $self->{OBJECT} =~ /\b$self->{BASEEXT}\b/i) { + push @m, ($Config{d_vms_case_sensitive_symbols} + ? uc($self->{BASEEXT}) :'$(BASEEXT)'); + } else { # We don't have a "main" object file, so pull 'em all in + # Upcase module names if linker is being case-sensitive + my($upcase) = $Config{d_vms_case_sensitive_symbols}; my(@omods) = map { s/\.[^.]*$//; # Trim off file type s[\$\(\w+_EXT\)][]; # even as a macro s/.*[:>\/\]]//; # Trim off dir spec - $_; } split ' ', $self->eliminate_macros($self->{OBJECT}); + $upcase ? uc($_) : $_; + } split ' ', $self->eliminate_macros($self->{OBJECT}); my($tmp,@lines,$elt) = ''; my $tmp = shift @omods; foreach $elt (@omods) { |