Fix segfaults when mainthread exits with other threads running:

[p5sagit/p5-mst-13.2.git] / perlvars.h

diff --git a/perlvars.h b/perlvars.h
index 5195679..b841719 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -56,4 +56,5 @@ PERLVARI(Grunops_dbg, runops_proc_t,  MEMBER_TO_FPTR(Perl_runops_debug))
 PERLVARI(Gsharehook,   share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nosharing))
 PERLVARI(Glockhook,    share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nolocking))
 PERLVARI(Gunlockhook,  share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nounlocking))
+PERLVARI(Gthreadhook,  thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))