From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 16 Oct 2005 17:39:20 +0000 (+0000)
Subject: static functions should be prefixed S_
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41fc7aade40f9ae87187b2116dd995e4151c4367;p=p5sagit%2Fp5-mst-13.2.git

static functions should be prefixed S_

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

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index f2e85eb..baf1b51 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -93,7 +93,7 @@ ithread* Perl_ithread_get (pTHX) {
  */
 
 static void
-Perl_ithread_clear(pTHX_ ithread* thread)
+S_ithread_clear(pTHX_ ithread* thread)
 {
     PerlInterpreter *interp;
     assert(thread->state & PERL_ITHR_FINISHED &&
@@ -162,7 +162,7 @@ Perl_ithread_destruct (pTHX_ ithread* thread, const char *why)
 	MUTEX_UNLOCK(&create_destruct_mutex);
 	/* Thread is now disowned */
 
-	Perl_ithread_clear(aTHX_ thread);
+	S_ithread_clear(aTHX_ thread);
 	MUTEX_UNLOCK(&thread->mutex);
 	MUTEX_DESTROY(&thread->mutex);
 #ifdef WIN32
@@ -660,7 +660,7 @@ Perl_ithread_join(pTHX_ SV *obj)
 	}
 	/* We are finished with it */
 	thread->state |= PERL_ITHR_JOINED;
-	Perl_ithread_clear(aTHX_ thread);
+	S_ithread_clear(aTHX_ thread);
 	MUTEX_UNLOCK(&thread->mutex);
     	
 	return retparam;