Abolish USE_WIN32_RTL_ENV.

p4raw-id: //depot/perl@8916

1 files changed, 0 insertions, 9 deletions

diff --git a/perl.c b/perl.c
index 23b1a4d887..b1d70b17c8 100644
--- a/perl.c
+++ b/perl.c
@@ -3382,15 +3382,6 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register
 	    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(). */
-	    { 
-		STRLEN len = strlen(*env);
-		char *e = safesysmalloc(len+1);
-		(void)strcpy(e, *env);
-		(void)PerlEnv_putenv(e);  
-	    } 
-#endif
 	}
 #ifdef NEED_ENVIRON_DUP_FOR_MODIFY
 	if (dup_env_base) {