diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-02-28 02:52:47 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-02-28 02:52:47 +0000 |
| commit | 80601f726a5a19bcf2b74279a3d4464723c257cb (patch) | |
| tree | 671df5b12d0a5c2544cc7e2bb6312947f48ef035 | |
| parent | b6837a3b27252f74ff8399514c00fa18a38dd3a6 (diff) | |
| download | perl-80601f726a5a19bcf2b74279a3d4464723c257cb.tar.gz | |
Missed bit of #5302 (case-sensitive symbols)
p4raw-id: //depot/vmsperl@5303
| -rw-r--r-- | lib/ExtUtils/Mksymlists.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm index a0126cc3a0..1ba5bcd234 100644 --- a/lib/ExtUtils/Mksymlists.pm +++ b/lib/ExtUtils/Mksymlists.pm @@ -173,6 +173,8 @@ sub _write_vms { # We don't do anything to preserve order, so we won't relax # the GSMATCH criteria for a dynamic extension + print OPT "case_sensitive=yes\n" + if $Config::Config{d_vms_case_sensitive_symbols}; foreach $sym (@{$data->{FUNCLIST}}) { my $safe = $set->addsym($sym); if ($isvax) { print OPT "UNIVERSAL=$safe\n" } |