1 files changed, 3 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 21ca8aa068..c11007ef9a 100644
--- a/perl.c
+++ b/perl.c
@@ -698,6 +698,9 @@ perl_destruct(pTHXx)
     }
     SvREFCNT_dec(PL_strtab);
 
+    /* free the pointer table used for cloning */
+    ptr_table_free(PL_ptr_table);
+
     /* free special SVs */
 
     SvREFCNT(&PL_sv_yes) = 0;