From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 23 Oct 2008 00:26:03 +0000 (+0000)
Subject: When testing the case sensitivity settings of the process
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28ff97357ba270503bbb7e967e394dfe9c7a0639;p=p5sagit%2Fp5-mst-13.2.git

When testing the case sensitivity settings of the process
on VMS, be a little more sensitive to older versions that
don't have the capability.

p4raw-id: //depot/perl@34562
---

diff --git a/vms/vms.c b/vms/vms.c
index 73637e7..693eeb4 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -13617,7 +13617,7 @@ static int set_features
     }
 #endif
 
-#if defined(JPI$_CASE_LOOKUP_PERM) && !defined(__VAX)
+#if defined(JPI$_CASE_LOOKUP_PERM) && defined(PPROP$K_CASE_BLIND) && !defined(__VAX)
 
      /* Report true case tolerance */
     /*----------------------------*/