diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-16 22:07:26 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-16 22:07:26 +0000 |
| commit | ce08f86c8b1d404b3d9fec75a102b8cd65f8766a (patch) | |
| tree | 99554dbf0369752a5ad53b5a4f7cacfeee7993f8 /sv.c | |
| parent | 8a56572fafff2f72353c07ffd8e7d0373972b8d5 (diff) | |
| download | perl-ce08f86c8b1d404b3d9fec75a102b8cd65f8766a.tar.gz | |
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
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -8869,6 +8869,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, int sig_num[] = { SIG_NUM }; Newz(0, PL_psig_ptr, sizeof(sig_num)/sizeof(*sig_num), SV*); Newz(0, PL_psig_name, sizeof(sig_num)/sizeof(*sig_num), SV*); + Newz(0, PL_psig_pend, sizeof(sig_num)/sizeof(*sig_num), int*); for (i = 1; PL_sig_name[i]; i++) { PL_psig_ptr[i] = sv_dup_inc(proto_perl->Ipsig_ptr[i]); PL_psig_name[i] = sv_dup_inc(proto_perl->Ipsig_name[i]); @@ -8877,6 +8878,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, else { PL_psig_ptr = (SV**)NULL; PL_psig_name = (SV**)NULL; + PL_psig_pend = (int*)NULL; } /* thrdvar.h stuff */ |