diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-09 10:56:56 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-09 10:56:56 +0000 |
| commit | 4e15132621c4557a3f8a986a406905524fcbc190 (patch) | |
| tree | 718a54f6eca12e4fc2a6cf08961b58540e27f98c | |
| parent | 2e7640f0c7a7d476b21bbcc8398038c0ecc98cd6 (diff) | |
| download | perl-4e15132621c4557a3f8a986a406905524fcbc190.tar.gz | |
Free temporary scalars later, because they might be still needed
when restoring magic
p4raw-id: //depot/perl@32075
| -rw-r--r-- | ext/Hash/Util/FieldHash/FieldHash.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Hash/Util/FieldHash/FieldHash.xs b/ext/Hash/Util/FieldHash/FieldHash.xs index f5921f383e..919a6891f0 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; } |