Integrate Jarkko's Encode.pm tweak.

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index f5cc1cc..b1d70b1 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -3382,10 +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(). */
-           (void)PerlEnv_putenv(savepv(*env));
-#endif
        }
 #ifdef NEED_ENVIRON_DUP_FOR_MODIFY
        if (dup_env_base) {
@@ -3394,7 +3390,7 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register
                safesysfree(*dup_env);
            safesysfree(dup_env_base);
        }
-#endif /* NEED_ENVIRON_DUP_FOR_MODIFU */
+#endif /* NEED_ENVIRON_DUP_FOR_MODIFY */
 #endif /* USE_ENVIRON_ARRAY */
 #ifdef DYNAMIC_ENV_FETCH
        HvNAME(hv) = savepv(ENV_HV_NAME);