1 files changed, 0 insertions, 2 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 573f496032..ca6b1957db 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2800,8 +2800,6 @@ PP(pp_aelem)
 	Perl_warner(aTHX_ packWARN(WARN_MISC),
 		    "Use of reference \"%"SVf"\" as array index",
 		    SVfARG(elemsv));
-    if (elem > 0)
-	elem -= CopARYBASE_get(PL_curcop);
     if (SvTYPE(av) != SVt_PVAV)
 	RETPUSHUNDEF;