diff options
| author | Craig A. Berry <craigberry@mac.com> | 2006-01-14 05:16:27 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-01-14 05:16:27 +0000 |
| commit | 3c841f204981f702a769e4ea6da93e7b55a75bc0 (patch) | |
| tree | 98c44b24aed4a154e2fe6344374d768598a66ce8 /vms | |
| parent | ddcbaa1cece03b86d18feae2329582fa255e94be (diff) | |
| download | perl-3c841f204981f702a769e4ea6da93e7b55a75bc0.tar.gz | |
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
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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 */ /*----------------------------*/ |