From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 28 Feb 2000 02:52:47 +0000 (+0000)
Subject: Missed bit of #5302 (case-sensitive symbols)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80601f726a5a19bcf2b74279a3d4464723c257cb;p=p5sagit%2Fp5-mst-13.2.git

Missed bit of #5302 (case-sensitive symbols)

p4raw-id: //depot/vmsperl@5303
---

diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm
index a0126cc..1ba5bcd 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" }