make -Dpv print 8 parser stack items, not 9

p4raw-id: //depot/perl@29589

1 files changed, 1 insertions, 1 deletions

diff --git a/perly.c b/perly.c
index ad01d38b6b..d5b243b6c6 100644
--- a/perly.c
+++ b/perly.c
@@ -106,7 +106,7 @@ yy_stack_print (pTHX_ const yy_parser *parser)
 {
     const yy_stack_frame *ps, *min;
 
-    min = parser->ps - 8;
+    min = parser->ps - 8 + 1;
     if (min <= &parser->stack[0])
 	min = &parser->stack[0] + 1;