From 80601f726a5a19bcf2b74279a3d4464723c257cb Mon Sep 17 00:00:00 2001
From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 28 Feb 2000 02:52:47 +0000
Subject: Missed bit of #5302 (case-sensitive symbols)

p4raw-id: //depot/vmsperl@5303
---
 lib/ExtUtils/Mksymlists.pm | 2 ++
 1 file changed, 2 insertions(+)

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" }
-- 
cgit v1.2.1