Track the mapping between source shared hash keys and target shared

hash keys to save repeated lookups during cloning.

p4raw-id: //depot/perl@24574

1 files changed, 3 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index babaaed3b1..a7ed27e51b 100644
--- a/perl.c
+++ b/perl.c
@@ -834,9 +834,11 @@ perl_destruct(pTHXx)
     SvREFCNT_dec(PL_strtab);
 
 #ifdef USE_ITHREADS
-    /* free the pointer table used for cloning */
+    /* free the pointer tables used for cloning */
     ptr_table_free(PL_ptr_table);
     PL_ptr_table = (PTR_TBL_t*)NULL;
+    ptr_table_free(PL_shared_hek_table);
+    PL_shared_hek_table = (PTR_TBL_t*)NULL;
 #endif
 
     /* free special SVs */