Safefree(PL_op_mask);
Safefree(PL_psig_ptr);
Safefree(PL_psig_name);
+ Safefree(PL_bitcount);
Safefree(PL_psig_pend);
nuke_stacks();
PL_hints = 0; /* Reset hints. Should hints be per-interpreter ? */
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) {