More verbose debugging.

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

diff --git a/perly.y b/perly.y
index a30f4ce..c682c9c 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -129,10 +129,10 @@ prog      :       /* NULL */
 #if defined(YYDEBUG) && defined(DEBUGGING)
                    yydebug = (DEBUG_p_TEST);
 #endif
-                   PL_expect = XSTATE;
+                   PL_expect = XSTATE; $$ = block_start(TRUE);
                }
        /*CONTINUED*/   lineseq
-                       { newPROG($2); }
+                       { newPROG(block_end($1,$2)); }
        ;
 
 block  :       '{' remember lineseq '}'