diff options
| author | Zefram <zefram@fysh.org> | 2010-10-24 05:44:43 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-25 12:29:47 -0700 |
| commit | 361d9b557e615b7530c603ebd123b12506c9406b (patch) | |
| tree | 5a6ef220e84ce6aa671de8e48bb0b54f082edcfe /embed.h | |
| parent | 8359b381d0e4b7d1489abafb919f3c2a465401a4 (diff) | |
| download | perl-361d9b557e615b7530c603ebd123b12506c9406b.tar.gz | |
function to parse isolated label
New API function parse_label() parses a label, separate from statements.
If a label has not already been lexed and queued up, it does not use
yylex(), but parses the label itself at the character level, to avoid
unwanted lexing past an absent optional label.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -379,6 +379,7 @@ #define parse_barestmt(a) Perl_parse_barestmt(aTHX_ a) #define parse_block(a) Perl_parse_block(aTHX_ a) #define parse_fullstmt(a) Perl_parse_fullstmt(aTHX_ a) +#define parse_label(a) Perl_parse_label(aTHX_ a) #define parse_stmtseq(a) Perl_parse_stmtseq(aTHX_ a) #define pmop_dump(a) Perl_pmop_dump(aTHX_ a) #define pop_scope() Perl_pop_scope(aTHX) |