X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=hv.c;h=f25aea2d99d1ee1b946056868cfd00bd09506471;hb=e42c74e1bbeb8832945ac76bd2905217353ae440;hp=a4951f83c33c219a973c05f2ed9de4c59c2ca844;hpb=d220deaf856c3cdabaa2d430105b75dfc20fe531;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/hv.c b/hv.c
index a4951f8..f25aea2 100644
--- a/hv.c
+++ b/hv.c
@@ -927,11 +927,12 @@ Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash)
 
     if (SvRMAGICAL(hv)) {
 	if (mg_find((SV*)hv,'P')) {
+           SV* svret = sv_newmortal();
 	    sv = sv_newmortal();
 	    keysv = sv_2mortal(newSVsv(keysv));
 	    mg_copy((SV*)hv, sv, (char*)keysv, HEf_SVKEY);
-	    magic_existspack(sv, mg_find(sv, 'p'));
-	    return SvTRUE(sv);
+           magic_existspack(svret, mg_find(sv, 'p'));
+           return SvTRUE(svret);
 	}
 #ifdef ENV_IS_CASELESS
 	else if (mg_find((SV*)hv,'E')) {