From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 5 Jun 2003 16:19:40 +0000 (+0000)
Subject: z/OS threads tweak from Brian De Pradine.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e79ab2c0772803c81d42fa8edf7827e514e1914;p=p5sagit%2Fp5-mst-13.2.git

z/OS threads tweak from Brian De Pradine.

p4raw-id: //depot/perl@19690
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index e086f37..2bb5856 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -130,8 +130,16 @@ Perl_ithread_destruct (pTHX_ ithread* thread, const char *why)
 	if(thread->interp) {
 	    dTHXa(thread->interp);
 	    ithread*        current_thread;
+#ifdef OEMVS
+	    void *ptr;
+#endif
 	    PERL_SET_CONTEXT(thread->interp);
+#ifdef OEMVS
+	    PERL_THREAD_GETSPECIFIC(self_key,ptr);
+            current_thread = (ithread *) ptr;
+#else
 	    PERL_THREAD_GETSPECIFIC(self_key,current_thread);
+#endif
 	    PERL_THREAD_SETSPECIFIC(self_key,thread);