From 2c2d7ae2ec598bff43f056060e4a83656066a4c4 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craig.a.berry@gmail.com>
Date: Sat, 13 Feb 2016 09:12:01 -0500
Subject: VMS patch for duplicate env entries

---
 vms/vms.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/vms/vms.c b/vms/vms.c
index 0f1fb5ed2d..344b61b375 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -1352,7 +1352,9 @@ prime_env_iter(void)
     if (!str$case_blind_compare(env_tables[i],&crtlenv)) {
       char *start;
       int j;
-      for (j = 0; environ[j]; j++) { 
+      /* Start at the end, so if there is a duplicate we keep the first one. */
+      for (j = 0; environ[j]; j++);
+      for (j--; j >= 0; j--) {
         if (!(start = strchr(environ[j],'='))) {
           if (ckWARN(WARN_INTERNAL)) 
             Perl_warner(aTHX_ packWARN(WARN_INTERNAL),"Ill-formed CRTL environ value \"%s\"\n",environ[j]);
-- 
cgit v1.2.1