Minor tweaks to add a thread_intern struct that should ultimately

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index 338193d..2e2435e 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2842,11 +2842,11 @@ init_main_thread()
     thr->prev = thr;
     MUTEX_UNLOCK(&threads_mutex);
 
-#ifdef INIT_THREAD_INTERN
-    INIT_THREAD_INTERN(thr);
+#ifdef HAVE_THREAD_INTERN
+    init_thread_intern(thr);
 #else
     thr->self = pthread_self();
-#endif /* INIT_THREAD_INTERN */
+#endif /* HAVE_THREAD_INTERN */
     SET_THR(thr);
 
     /*