Initial 3-way merge from (5.001m, thr1m, 5.003) plus fixups.
[perl.git] / hv.c
diff --git a/hv.c b/hv.c
index d9cbe52..a3dc657 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -74,6 +74,7 @@ I32 lval;
 
     if (SvRMAGICAL(hv)) {
        if (mg_find((SV*)hv,'P')) {
+           dTHR;
            sv = sv_newmortal();
            mg_copy((SV*)hv, sv, key, klen);
            Sv = sv;
@@ -278,6 +279,7 @@ U32 klen;
 
     if (SvRMAGICAL(hv)) {
        if (mg_find((SV*)hv,'P')) {
+           dTHR;
            sv = sv_newmortal();
            mg_copy((SV*)hv, sv, key, klen); 
            magic_existspack(sv, mg_find(sv, 'p'));