In Perl_mg_dup(), don't call ptr_table_fetch, as we never call ptr_table_store.

1 files changed, 0 insertions, 4 deletions

diff --git a/sv.c b/sv.c
index 858ba260a9..c21b8ce521 100644
--- a/sv.c
+++ b/sv.c
@@ -10516,10 +10516,6 @@ Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *const param)
 
     if (!mg)
 	return (MAGIC*)NULL;
-    /* look for it in the table first */
-    mgret = (MAGIC*)ptr_table_fetch(PL_ptr_table, mg);
-    if (mgret)
-	return mgret;
 
     for (; mg; mg = mg->mg_moremagic) {
 	MAGIC *nmg;