1 files changed, 4 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 3b57a48b1c..8ef13a3288 100644
--- a/perl.c
+++ b/perl.c
@@ -2356,6 +2356,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