From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 18 May 2009 10:27:16 +0000 (+0100)
Subject: In Perl_mg_dup(), don't call ptr_table_fetch, as we never call ptr_table_store.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ebee25a2250e4f12a44dc498c0aeeab23b29c639;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/sv.c b/sv.c
index 858ba26..c21b8ce 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;