From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 3 Jun 2003 15:05:19 +0000 (+0000)
Subject: According to Arthur this should help
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2379b3078a5c004c2c469a654276d0a1614e38fc;p=p5sagit%2Fp5-mst-13.2.git

According to Arthur this should help
#22060 Perl 5.8.0 on FreeBSD 5.0 threads (threads->list) possible bug

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

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 6ef046f..e086f37 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -669,7 +669,7 @@ PPCODE:
   MUTEX_LOCK(&create_destruct_mutex);
   curr_thread = threads;
   if(curr_thread->tid != 0)	
-    PUSHs( sv_2mortal(ithread_to_SV(aTHX_ NULL, curr_thread, classname, TRUE)));
+    XPUSHs( sv_2mortal(ithread_to_SV(aTHX_ NULL, curr_thread, classname, TRUE)));
   while(curr_thread) {
     curr_thread = curr_thread->next;
     if(curr_thread == threads)
@@ -677,7 +677,7 @@ PPCODE:
     if(curr_thread->state & PERL_ITHR_DETACHED ||
        curr_thread->state & PERL_ITHR_JOINED)
          continue;
-     PUSHs( sv_2mortal(ithread_to_SV(aTHX_ NULL, curr_thread, classname, TRUE)));
+     XPUSHs( sv_2mortal(ithread_to_SV(aTHX_ NULL, curr_thread, classname, TRUE)));
   }	
   MUTEX_UNLOCK(&create_destruct_mutex);
 }