for (reverse @foo) now iterates in reverse in place.

p4raw-id: //depot/perl@23115

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 1107ad9461..0c1067a559 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1811,7 +1811,7 @@ PP(pp_enteriter)
 	    }
 	}
 	else if (PL_op->op_private & OPpITER_REVERSED) {
-	    cx->blk_loop.itermax = 0;
+	    cx->blk_loop.itermax = -1;
 	    cx->blk_loop.iterix = AvFILL(cx->blk_loop.iterary);
 
 	}