From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 9 Oct 2007 10:56:56 +0000 (+0000)
Subject: Free temporary scalars later, because they might be still needed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e15132621c4557a3f8a986a406905524fcbc190;p=p5sagit%2Fp5-mst-13.2.git

Free temporary scalars later, because they might be still needed
when restoring magic

p4raw-id: //depot/perl@32075
---

diff --git a/ext/Hash/Util/FieldHash/FieldHash.xs b/ext/Hash/Util/FieldHash/FieldHash.xs
index f5921f3..919a689 100644
--- a/ext/Hash/Util/FieldHash/FieldHash.xs
+++ b/ext/Hash/Util/FieldHash/FieldHash.xs
@@ -127,12 +127,12 @@ I32 HUF_destroy_obj(pTHX_ IV index, SV* trigger) {
         while (ent = hv_iternext(field_tab)) {
             SV* field_ref = HeVAL(ent);
             SV* field = SvRV(field_ref);
-            hv_delete_ent((HV*)field, ob_id, G_DISCARD, 0);
+            hv_delete_ent((HV*)field, ob_id, 0, 0);
         }
         /* make it safe in case we must run in global clenaup, after all */
         if (PL_in_clean_all)
             HUF_global(HUF_RESET); /* shoudn't be needed */
-        hv_delete_ent(MY_CXT.ob_reg, ob_id, G_DISCARD, 0);
+        hv_delete_ent(MY_CXT.ob_reg, ob_id, 0, 0);
     }
     return 0;
 }