[DOC PATCH] Pod nits in doc/perlpodspec.pod

[p5sagit/p5-mst-13.2.git] / parser.h

diff --git a/parser.h b/parser.h
index 271d35a..f62ac3d 100644 (file)
--- a/parser.h
+++ b/parser.h
@@ -55,10 +55,12 @@ typedef struct yy_parser {
     I32                lex_starts;     /* how many interps done on level */
     SV         *lex_stuff;     /* runtime pattern from m// or s/// */
     I32                multi_start;    /* 1st line of multi-line string */
+    I32                multi_end;      /* last line of multi-line string */
     char       multi_open;     /* delimiter of said string */
     char       multi_close;    /* delimiter of said string */
     char       pending_ident;  /* pending identifier lookup */
     bool       preambled;
+    /* XXX I32 space */
     SUBLEXINFO sublex_info;
     SV         *linestr;       /* current chunk of src text */
     char       *bufptr;        
@@ -75,6 +77,7 @@ typedef struct yy_parser {
     HV         *in_my_stash;   /* declared class of this "my" declaration */
     PerlIO     *rsfp;          /* current source file pointer */
     AV         *rsfp_filters;  /* holds chain of active source filters */
+    U8         error_count;    /* how many compile errors so far, max 10 */
 
 #ifdef PERL_MAD
     SV         *endwhite;