1 files changed, 2 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index c11007ef9a..78a4a54e26 100644
--- 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 */