usr.bin/perl/toke.c

198  * PREBLOCK     : beginning the block after an if, while, foreach, ...
234 #define PREBLOCK(retval) return (PL_expect = XBLOCK,PL_bufptr = s, REPORT(retval))
5451         PREBLOCK(KW_FORMAT);
6145         PREBLOCK(LSTOPSUB);
6674         PREBLOCK(PERLY_PAREN_CLOSE);
7876         PREBLOCK(KW_CATCH);
7899             PREBLOCK(KW_CONTINUE);
7945         PREBLOCK(KW_DEFAULT);
7950         PREBLOCK(KW_DEFER);
7982         PREBLOCK(KW_ELSE);
8059         PREBLOCK(KW_FINALLY);
8372         PREBLOCK(KW_PACKAGE);
8649         PREBLOCK(KW_TRY);