From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Mon, 16 Mar 1998 16:36:55 +0000 (+0000)
Subject: Missing dTHR in hv_fetch_ent when statics moved to thread struct.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ff68fdd012a86829ad37b67861f3bf7ea777480;p=p5sagit%2Fp5-mst-13.2.git

Missing dTHR in hv_fetch_ent when statics moved to thread struct.

p4raw-id: //depot/perl@825
---

diff --git a/hv.c b/hv.c
index 822c002..e7d2075 100644
--- a/hv.c
+++ b/hv.c
@@ -170,6 +170,7 @@ hv_fetch_ent(HV *hv, SV *keysv, I32 lval, register U32 hash)
 
     if (SvRMAGICAL(hv)) {
 	if (mg_find((SV*)hv,'P')) {
+	    dTHR;
 	    sv = sv_newmortal();
 	    keysv = sv_2mortal(newSVsv(keysv));
 	    mg_copy((SV*)hv, sv, (char*)keysv, HEf_SVKEY);