diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-05 01:04:10 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-05 01:04:10 +0000 |
| commit | 4e35701fd273ba8d0093a29660dee38a92408e9b (patch) | |
| tree | afa97d9bf675ea146b86cf09a7c27e1bfbb980f3 /hv.c | |
| parent | 2b544454484ed91b6f1ae2cffef4c29b1302dcd7 (diff) | |
| download | perl-4e35701fd273ba8d0093a29660dee38a92408e9b.tar.gz | |
Builds C++ Borland, MSVC++ (Win32) and GCC++ (Solaris)
p4raw-id: //depot/ansiperl@203
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -294,7 +294,6 @@ 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); @@ -878,6 +877,7 @@ 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 */ |