1 files changed, 1 insertions, 1 deletions
diff --git a/perly.y b/perly.y
index a52f18aff0..0a1c2c9684 100644
--- a/perly.y
+++ b/perly.y
@@ -544,7 +544,7 @@ term	:	'-' term %prec UMINUS
 	|	DELETE '(' REG '{' expr ';' '}' ')'	%prec '('
 			{ $$ = make_op(O_DELETE, 2,
 				stab2arg(A_STAB,hadd($3)),
-				jmaybe($4),
+				jmaybe($5),
 				Nullarg);
 			    expectterm = FALSE; }
 	|	ARYLEN	%prec '('