Re: Named-capture regex syntax

[p5sagit/p5-mst-13.2.git] / perly.c

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;