diff options
author | Karl Williamson <khw@cpan.org> | 2023-03-27 20:25:35 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2023-04-04 12:53:22 -0600 |
commit | 113cefaa4a736b299757774019cd1ee97b7e2db9 (patch) | |
tree | 588e9d0f6ff22a6edd4c19002b48a0d76964db47 /dist | |
parent | 59402972ce26ccbcf5c463e9bf544fd57c8dd513 (diff) | |
download | perl-113cefaa4a736b299757774019cd1ee97b7e2db9.tar.gz |
threads.xs: Set non thread context in ithread_set()
This generally was getting set anyway, but a test yet to be committed
found a case where it wasn't.
Diffstat (limited to 'dist')
-rw-r--r-- | dist/threads/threads.xs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/dist/threads/threads.xs b/dist/threads/threads.xs index 069f0da3ca..25fec167aa 100644 --- a/dist/threads/threads.xs +++ b/dist/threads/threads.xs @@ -205,6 +205,9 @@ S_ithread_set(pTHX_ ithread *thread) { dMY_CXT; MY_CXT.context = thread; +#ifdef PERL_SET_NON_tTHX_CONTEXT + PERL_SET_NON_tTHX_CONTEXT(thread->interp); +#endif } STATIC ithread * |