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 | e04743a46aac655e5cd5dd323b492b75fbd104d9 (patch) | |
| tree | 7cf47279ebe56f251304d9b9d314f62c7066ce0a /embedvar.h | |
| parent | 9955c1511997eeed7f9cf65cb9689dfc8b6a7a0c (diff) | |
| download | perl-e04743a46aac655e5cd5dd323b492b75fbd104d9.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 */ |