diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-04-03 13:15:30 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-04-03 13:15:30 +0000 |
| commit | 62375a601d6dbbc42fa6d70d83d0a60b73d1b86d (patch) | |
| tree | 7cf47279ebe56f251304d9b9d314f62c7066ce0a /embed.h | |
| parent | e5a119301ff5c8127ffae5b126fbb52e5a78c804 (diff) | |
| download | perl-62375a601d6dbbc42fa6d70d83d0a60b73d1b86d.tar.gz | |
Fix segfaults when mainthread exits with other threads running:
- track number of running threads
- if main thread calls perl_destruct() with other threads running
skip most of cleanup (with a warning).
p4raw-id: //depot/perlio@15698
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -899,6 +899,7 @@ #define sv_nosharing Perl_sv_nosharing #define sv_nolocking Perl_sv_nolocking #define sv_nounlocking Perl_sv_nounlocking +#define nothreadhook Perl_nothreadhook #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT) #define avhv_index_sv S_avhv_index_sv #define avhv_index S_avhv_index @@ -2447,6 +2448,7 @@ #define sv_nosharing(a) Perl_sv_nosharing(aTHX_ a) #define sv_nolocking(a) Perl_sv_nolocking(aTHX_ a) #define sv_nounlocking(a) Perl_sv_nounlocking(aTHX_ a) +#define nothreadhook() Perl_nothreadhook(aTHX) #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT) #define avhv_index_sv(a) S_avhv_index_sv(aTHX_ a) #define avhv_index(a,b,c) S_avhv_index(aTHX_ a,b,c) |