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 /embedvar.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 'embedvar.h')
| -rw-r--r-- | embedvar.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/embedvar.h b/embedvar.h index 8eccfa2e72..379917832a 100644 --- a/embedvar.h +++ b/embedvar.h @@ -1370,6 +1370,7 @@ #define PL_runops_std (PL_Vars.Grunops_std) #define PL_sharehook (PL_Vars.Gsharehook) #define PL_thr_key (PL_Vars.Gthr_key) +#define PL_threadhook (PL_Vars.Gthreadhook) #define PL_unlockhook (PL_Vars.Gunlockhook) #else /* !PERL_GLOBAL_STRUCT */ @@ -1387,6 +1388,7 @@ #define PL_Grunops_std PL_runops_std #define PL_Gsharehook PL_sharehook #define PL_Gthr_key PL_thr_key +#define PL_Gthreadhook PL_threadhook #define PL_Gunlockhook PL_unlockhook #endif /* PERL_GLOBAL_STRUCT */ |