- bool in_pod; /* lexer is within a =pod section */
- U8 lex_fakeeof; /* precedence at which to fake EOF */
- U32 lex_flags;
+ bool sig_seen; /* the currently parsing sub has a signature */
+ /* these are valid while parsing a subroutine signature */
+ UV sig_elems; /* number of signature elements seen so far */
+ UV sig_optelems; /* number of optional signature elems seen */
+ char sig_slurpy; /* the sigil of the slurpy var (or null) */
+
+ bool recheck_utf8_validity;
+
+ PERL_BITFIELD16 in_pod:1; /* lexer is within a =pod section */
+ PERL_BITFIELD16 filtered:1; /* source filters in evalbytes */
+ PERL_BITFIELD16 saw_infix_sigil:1; /* saw & or * or % operator */
+ PERL_BITFIELD16 parsed_sub:1; /* last thing parsed was a sub */