Re: [PATCH: 5.6.1 trial2] DynaLoading for OS/390 build option

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

diff --git a/perl.c b/perl.c
index b90dea9..03b2ec1 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -745,6 +745,7 @@ perl_destruct(pTHXx)
     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 ? */
@@ -3382,24 +3383,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(). */
-           { /* Turn this into Perl_my_putenv()? */
-               char *putenvp = savepv(*env);
-
-               if (putenvp) {
-                   char *p = putenvp;
-
-                   while (*p && *p != '=') p++;
-                   if (p == '=') {
-                       *p++ = 0;
-                       my_setenv(putenvp, p);
-                   }
-                   
-                   Safefree(putenvp);
-               } /* else what? */
-           }
-#endif
        }
 #ifdef NEED_ENVIRON_DUP_FOR_MODIFY
        if (dup_env_base) {