#include "EXTERN.h"
#define PERL_IN_PERLY_C
#include "perl.h"
-
+#ifdef EBCDIC
+#undef YYDEBUG
+#endif
#define dep() deprecate("\"do\" to call subroutines")
/* stuff included here to make perly_c.diff apply better */
#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 '}'