This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
only use NAML$M_OPEN_SPECIAL where it exists
authorCraig A. Berry <craigberry@mac.com>
Thu, 15 Jun 2006 03:20:48 +0000 (03:20 +0000)
committerCraig A. Berry <craigberry@mac.com>
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);