Fixup non-ithread build after 8713

p4raw-id: //depot/perl@8715

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