diff --git a/src/perl.c b/src/perl.c
index 3b498f9b7ea348caf5048bc27932ccf3e0deb714..19ac08d4274156c168a1c2f0bd7a8d461a55acfc 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
return 0;
if (NULL == aTHX) {
- c_ithread_t *t = NULL;
+ t = NULL;
pthread_mutex_lock (&perl_threads->mutex);
t = c_ithread_create (perl_threads->head->interp);