diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-19 04:47:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-19 04:47:53 +0000 |
| commit | fe53aa5bafbad898597f77488a12ad889fba4485 (patch) | |
| tree | ff4bbe30db3dd2e52f1824161b3fadd098b886a1 /ext/threads | |
| parent | ddcc6fdc2c2811c8014d35126e40f07b13b87e32 (diff) | |
| download | perl-fe53aa5bafbad898597f77488a12ad889fba4485.tar.gz | |
Make Perl_ithread_self() a bit more helpful when
finding the thread fails (suggested by Stas in
perl-ithreads Mar 01)
p4raw-id: //depot/perl@19563
Diffstat (limited to 'ext/threads')
| -rwxr-xr-x | ext/threads/threads.xs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs index 4e34a40f0b..994fd2b987 100755 --- a/ext/threads/threads.xs +++ b/ext/threads/threads.xs @@ -532,7 +532,10 @@ Perl_ithread_self (pTHX_ SV *obj, char* Class) #else PERL_THREAD_GETSPECIFIC(self_key,thread); #endif - return ithread_to_SV(aTHX_ obj, thread, Class, TRUE); + if (thread) + return ithread_to_SV(aTHX_ obj, thread, Class, TRUE); + else + Perl_croak(aTHX_ "panic: cannot find thread data"); } /* |