diff options
| author | chromatic <chromatic@wgz.org> | 2008-05-10 05:52:11 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-05-18 21:08:01 +0000 |
| commit | be25f60935927114e0ef411fb4fbc04fea5ce8fa (patch) | |
| tree | 3ec48b054b9f6867ea11fb40e75da767d5bbaa25 /perly.y | |
| parent | e385c3bfc8853b925197cc2ddff78a11bae595e5 (diff) | |
| download | perl-be25f60935927114e0ef411fb4fbc04fea5ce8fa.tar.gz | |
Add ..., !!!, and ??? operators
Message-Id: <200805101252.11961.chromatic@wgz.org>
p4raw-id: //depot/perl@33858
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -72,7 +72,7 @@ %token <i_tkval> FORMAT SUB ANONSUB PACKAGE USE %token <i_tkval> WHILE UNTIL IF UNLESS ELSE ELSIF CONTINUE FOR %token <i_tkval> GIVEN WHEN DEFAULT -%token <i_tkval> LOOPEX DOTDOT +%token <i_tkval> LOOPEX DOTDOT YADAYADA %token <i_tkval> FUNC0 FUNC1 FUNC UNIOP LSTOP %token <i_tkval> RELOP EQOP MULOP ADDOP %token <i_tkval> DOLSHARP DO HASHBRACK NOAMP @@ -106,7 +106,7 @@ %left <i_tkval> ',' %right <i_tkval> ASSIGNOP %right <i_tkval> '?' ':' -%nonassoc DOTDOT +%nonassoc DOTDOT YADAYADA %left <i_tkval> OROR DORDOR %left <i_tkval> ANDAND %left <i_tkval> BITOROP @@ -1227,6 +1227,11 @@ term : termbinop } | WORD | listop + | YADAYADA + { + $$ = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0), + newSVOP(OP_CONST, 0, newSVpvs("Unimplemented"))); + } ; /* "my" declarations, with optional attributes */ |