1 files changed, 4 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 5a8f0d44f5..61961a7e33 100644
--- a/perl.c
+++ b/perl.c
@@ -2485,6 +2485,10 @@ register char **env;
 	    sv = newSVpv(s--,0);
 	    (void)hv_store(hv, *env, s - *env, sv, 0);
 	    *s = '=';
+#if defined(__BORLANDC__) && defined(USE_WIN32_RTL_ENV)
+	    /* Sins of the RTL. See note in my_setenv(). */
+	    (void)putenv(savepv(*env));
+#endif
 	}
 #endif
 #ifdef DYNAMIC_ENV_FETCH