projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Add test numbers to make "make test" happy. Order is irrelevant
[p5sagit/p5-mst-13.2.git]
/
ext
/
threads
/
threads.xs
diff --git
a/ext/threads/threads.xs
b/ext/threads/threads.xs
index
eea6d65
..
835cd63
100755
(executable)
--- a/
ext/threads/threads.xs
+++ b/
ext/threads/threads.xs
@@
-403,6
+403,7
@@
Perl_ithread_create(pTHX_ SV *obj, char* classname, SV* init_function, SV* param
SvTEMP_off(thread->init_function);
ptr_table_free(PL_ptr_table);
PL_ptr_table = NULL;
+ PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
}
PERL_SET_CONTEXT(aTHX);