diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-04 17:28:29 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-04 17:28:29 +0000 |
| commit | 4f25aa189c4a92535547c706ad37c13b7caee387 (patch) | |
| tree | 08af6df6000b2bd878b1b2e5e05cd48a1db0464b /toke.c | |
| parent | 0e950d832564d240b1bebd0a01f04f9f5d57cc79 (diff) | |
| download | perl-4f25aa189c4a92535547c706ad37c13b7caee387.tar.gz | |
implement STOP blocks and fix compiler to use them (minimally
tested)
p4raw-id: //depot/perl@4515
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -3776,6 +3776,7 @@ Perl_yylex(pTHX) case KEY_DESTROY: case KEY_BEGIN: case KEY_END: + case KEY_STOP: case KEY_INIT: if (PL_expect == XSTATE) { s = PL_bufptr; @@ -5214,6 +5215,9 @@ Perl_keyword(pTHX_ register char *d, I32 len) break; } break; + case 'S': + if (strEQ(d,"STOP")) return KEY_STOP; + break; case 's': switch (d[1]) { case 0: return KEY_s; |