bring in basic threads stuff under USE_ITHREADS

p4raw-id: //depot/perl@4704

1 files changed, 2 insertions, 2 deletions

diff --git a/op.c b/op.c
index e69630a0d7..d796ede318 100644
--- a/op.c
+++ b/op.c
@@ -4133,9 +4133,9 @@ CV *
 Perl_cv_clone(pTHX_ CV *proto)
 {
     CV *cv;
-    MUTEX_LOCK(&PL_cred_mutex);		/* XXX create separate mutex */
+    LOCK_CRED_MUTEX;			/* XXX create separate mutex */
     cv = cv_clone2(proto, CvOUTSIDE(proto));
-    MUTEX_UNLOCK(&PL_cred_mutex);	/* XXX create separate mutex */
+    UNLOCK_CRED_MUTEX;			/* XXX create separate mutex */
     return cv;
 }