diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-01 00:18:52 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-01 00:18:52 +0000 |
| commit | af702f0e61214b54e323d12ffeaff4e64bee707c (patch) | |
| tree | 2c9b5734fbd3c421d2d20c9e6877c8d10957e47c /hv.c | |
| parent | f890e7c81bc0e52bedc3dcefbcd144d0750c257d (diff) | |
| parent | a863c7d16499251f020c5d26d232aa865fa0b197 (diff) | |
| download | perl-af702f0e61214b54e323d12ffeaff4e64bee707c.tar.gz | |
Integrate mainline @ 18:15 CST 31 Oct 1997
p4raw-id: //depot/ansiperl@199
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -294,6 +294,7 @@ hv_store_ent(HV *hv, SV *keysv, SV *val, register U32 hash) xhv = (XPVHV*)SvANY(hv); if (SvMAGICAL(hv)) { + dTHR; bool save_taint = tainted; if (tainting) tainted = SvTAINTED(keysv); @@ -877,7 +878,6 @@ hv_iternext(HV *hv) } magic_nextpack((SV*) hv,mg,key); if (SvOK(key)) { - dTHR; /* just for SvREFCNT_inc */ /* force key to stay around until next time */ HeSVKEY_set(entry, SvREFCNT_inc(key)); return entry; /* beware, hent_val is not set */ |