Ensure PL_comppad/curpad point to PL_main_cv's padlist when

PL_main_root is freed; this may not have been be the case if a
thread other than the main one is the last to be destroyed

p4raw-id: //depot/perl@21470

1 files changed, 6 insertions, 1 deletions

diff --git a/ext/threads/t/thread.t b/ext/threads/t/thread.t
index c58ce00a99..2935fc2517 100644
--- a/ext/threads/t/thread.t
+++ b/ext/threads/t/thread.t
@@ -12,7 +12,7 @@ BEGIN {
 
 use ExtUtils::testlib;
 use strict;
-BEGIN { $| = 1; print "1..25\n" };
+BEGIN { $| = 1; print "1..26\n" };
 use threads;
 use threads::shared;
 
@@ -153,5 +153,10 @@ package main;
     ok((keys %rand == 25), "Check that rand works after a new thread");
 }
 
+# bugid #24165
+
+run_perl(prog =>
+    'use threads; sub a{threads->new(shift)} $t = a sub{}; $t->tid; $t->join; $t->tid');
+is($?, 0, 'coredump in global destruction');