This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Free temporary scalars later, because they might be still needed
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 9 Oct 2007 10:56:56 +0000 (10:56 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 9 Oct 2007 10:56:56 +0000 (10:56 +0000)
when restoring magic

p4raw-id: //depot/perl@32075

ext/Hash/Util/FieldHash/FieldHash.xs

index f5921f3..919a689 100644 (file)
@@ -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;
 }