From ce08f86c8b1d404b3d9fec75a102b8cd65f8766a Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Tue, 16 Jan 2001 22:07:26 +0000 Subject: Provide infrastructure for PERL_ASYNC_CHECK() style safe signals. Provides all the "cost" but no benefit yet - it is to allow cost to be measured, and implementation experiments (just in mg.c?). p4raw-id: //depot/perlio@8457 --- perl.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index 4911e79f3e..a5f4e68b6b 100644 --- a/perl.c +++ b/perl.c @@ -724,6 +724,7 @@ perl_destruct(pTHXx) Safefree(PL_op_mask); Safefree(PL_psig_ptr); Safefree(PL_psig_name); + Safefree(PL_psig_pend); nuke_stacks(); PL_hints = 0; /* Reset hints. Should hints be per-interpreter ? */ @@ -789,12 +790,12 @@ perl_free(pTHXx) # if defined(PERL_IMPLICIT_SYS) void *host = w32_internal_host; if (PerlProc_lasthost()) { - PerlIO_cleanup(); + PerlIO_cleanup(); } PerlMem_free(aTHXx); win32_delete_internal_host(host); #else - PerlIO_cleanup(); + PerlIO_cleanup(); PerlMem_free(aTHXx); #endif # else -- cgit v1.2.1