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 (file)
--- 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;
 }