only use NAML$M_OPEN_SPECIAL where it exists
Craig A. Berry [Thu, 15 Jun 2006 03:20:48 +0000 (03:20 +0000)]
p4raw-id: //depot/perl@28396

vms/vms.c

index 4bb2223..8a30a55 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -5996,7 +5996,9 @@ int unixlen;
   mynam.naml$b_rss = 0;
   if (decc_efs_case_preserve)
     mynam.naml$b_nop |= NAM$M_NO_SHORT_UPCASE;
+#ifdef NAML$M_OPEN_SPECIAL
   mynam.naml$l_input_flags |= NAML$M_OPEN_SPECIAL;
+#endif
 
   /* Set up the remaining naml fields */
   sts = sys$parse(&myfab);