This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
When testing the case sensitivity settings of the process
authorCraig A. Berry <craigberry@mac.com>
Thu, 23 Oct 2008 00:26:03 +0000 (00:26 +0000)
committerCraig A. Berry <craigberry@mac.com>
Thu, 23 Oct 2008 00:26:03 +0000 (00:26 +0000)
on VMS, be a little more sensitive to older versions that
don't have the capability.

p4raw-id: //depot/perl@34562

vms/vms.c

index 73637e7..693eeb4 100644 (file)
--- 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 */
     /*----------------------------*/