Reverse order of environ tables under bash on VMS.

The default for populating %ENV on VMS is from logical names
first and the CRTL environ array second unless overridden by
setting PERL_ENV_TABLES. That's a reasonable default for DCL,
but not quite right when running under bash as exports under bash
might end up hidden behind logical names.  So reverse the default
order when GNV$UNIX_SHELL is set.

Also stop mentioning that setenv() may not be present in the CRTL
since it is present for VMS versions 7.0 and later and those are
the only ones we support.

1 files changed, 3 insertions, 0 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 43e9e41c3e..75e4ccefe7 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -14052,6 +14052,9 @@ vmsperl_set_features(void)
 	 set_feature_default("DECC$DISABLE_POSIX_ROOT", 0);
 	 vms_unlink_all_versions = 1;
 	 vms_posix_exit = 1;
+	 /* Reverse default ordering of PERL_ENV_TABLES. */
+	 defenv[0] = &crtlenvdsc;
+	 defenv[1] = &fildevdsc;
     }
     /* Some reasonable defaults that are not CRTL defaults */
     set_feature_default("DECC$EFS_CASE_PRESERVE", 1);