Correct the correction :-(

p4raw-id: //depot/perl@8721

diff --git a/perl.c b/perl.c
index 78a4a54..b0c1cef 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -698,7 +698,7 @@ perl_destruct(pTHXx)
     }
     SvREFCNT_dec(PL_strtab);
 
-#ifdef USE_THREADS
+#ifdef USE_ITHREADS
     /* free the pointer table used for cloning */
     ptr_table_free(PL_ptr_table);
 #endif