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

1 files changed, 1 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index f499e7b455..958ecb41ab 100644
--- a/perl.h
+++ b/perl.h
@@ -2797,6 +2797,7 @@ typedef Sighandler_t Sigsave_t;
 
 typedef int (CPERLscope(*runops_proc_t)) (pTHX);
 typedef void (CPERLscope(*share_proc_t)) (pTHX_ SV *sv);
+typedef int  (CPERLscope(*thrhook_proc_t)) (pTHX);
 typedef OP* (CPERLscope(*PPADDR_t)[]) (pTHX);
 
 /* _ (for $_) must be first in the following list (DEFSV requires it) */