Friday the 13th, Part II. Don't call SYS$GETJPI with fancy case

[perl5.git] / vms / vms.c

diff --git a/vms/vms.c b/vms/vms.c
index 916a463..6c8208a 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -10870,10 +10870,12 @@ static int set_features
     int dflt;
     char* str;
     char val_str[10];
     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;
     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 */
 
 
     /* hacks to see if known bugs are still present for testing */
 


@@ -11053,7 +11055,7 @@ static int set_features
     }
 #endif
 
     }
 #endif
 

-#ifndef __VAX
+#if defined(JPI$_CASE_LOOKUP_PERM) && !defined(__VAX)

 
      /* Report true case tolerance */
     /*----------------------------*/
 
      /* Report true case tolerance */
     /*----------------------------*/