X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/585d73c3f7e6f6ad6480ed2d56f83c15e5936eb2..2c5f48c251e:/pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index 24edbdc..675f2e5 100644
--- 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. */
-	if (SvCANEXISTDELETE(hv) || mg_find((const SV *)hv, PERL_MAGIC_env))
+	if (SvCANEXISTDELETE(hv))
 	    preeminent = hv_exists_ent(hv, keysv, 0);
     }