[perl #112966] Crash on delete local; other local bugs

[perl5.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index 24edbdc..675f2e5 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1792,7 +1792,7 @@ PP(pp_helem)
         * Try to preserve the existenceness of a tied hash
         * element by using EXISTS and DELETE if possible.
         * Fallback to FETCH and STORE otherwise. */
         * Try to preserve the existenceness of a tied hash
         * element by using EXISTS and DELETE if possible.
         * Fallback to FETCH and STORE otherwise. */

-       if (SvCANEXISTDELETE(hv) || mg_find((const SV *)hv, PERL_MAGIC_env))
+       if (SvCANEXISTDELETE(hv))

            preeminent = hv_exists_ent(hv, keysv, 0);
     }
 
            preeminent = hv_exists_ent(hv, keysv, 0);
     }