From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 14 Jan 2006 05:16:27 +0000 (+0000)
Subject: Friday the 13th, Part II.  Don't call SYS$GETJPI with fancy case
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c841f204981f702a769e4ea6da93e7b55a75bc0;p=p5sagit%2Fp5-mst-13.2.git

Friday the 13th, Part II.  Don't call SYS$GETJPI with fancy case
lookup stuff on older systems that don't know what it means (broken
in #25306).

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

diff --git a/vms/vms.c b/vms/vms.c
index 916a463..6c8208a 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -10870,10 +10870,12 @@ static int set_features
     int dflt;
     char* str;
     char val_str[10];
+#if defined(JPI$_CASE_LOOKUP_PERM) && !defined(__VAX)
     const unsigned long int jpicode1 = JPI$_CASE_LOOKUP_PERM;
     const unsigned long int jpicode2 = JPI$_CASE_LOOKUP_IMAGE;
     unsigned long case_perm;
     unsigned long case_image;
+#endif
 
     /* hacks to see if known bugs are still present for testing */
 
@@ -11053,7 +11055,7 @@ static int set_features
     }
 #endif
 
-#ifndef __VAX
+#if defined(JPI$_CASE_LOOKUP_PERM) && !defined(__VAX)
 
      /* Report true case tolerance */
     /*----------------------------*/