make -Dpv print 8 parser stack items, not 9

p4raw-id: //depot/perl@29589

diff --git a/perly.c b/perly.c
index ad01d38..d5b243b 100644 (file)
--- 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;