diff options
author | Zefram <zefram@fysh.org> | 2017-12-05 22:08:42 +0000 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2017-12-05 22:18:28 +0000 |
commit | 284a3526271b040abd48aef39f61e8bacbf16645 (patch) | |
tree | ab207e7b8634bdba8a3bf6f319fcc1333a9d7f17 /perly.y | |
parent | 8c49c7c16863f886a6a4da3b585463cd16a8b976 (diff) | |
download | perl-284a3526271b040abd48aef39f61e8bacbf16645.tar.gz |
change "when" keyword to "whereso"
Diffstat (limited to 'perly.y')
-rw-r--r-- | perly.y | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -53,7 +53,7 @@ %token <pval> LABEL %token <ival> FORMAT SUB ANONSUB PACKAGE USE %token <ival> WHILE UNTIL IF UNLESS ELSE ELSIF CONTINUE FOR -%token <ival> GIVEN WHEN +%token <ival> GIVEN WHERESO %token <ival> LOOPEX DOTDOT YADAYADA %token <ival> FUNC0 FUNC1 FUNC UNIOP LSTOP %token <ival> RELOP EQOP MULOP ADDOP @@ -378,7 +378,7 @@ barestmt: PLUGSTMT $$ = block_end($3, newGIVENOP($4, op_scope($6), 0)); parser->copline = (line_t)$1; } - | WHEN '(' remember mexpr ')' mblock + | WHERESO '(' remember mexpr ')' mblock { $$ = block_end($3, newWHENOP($4, op_scope($6))); } | WHILE '(' remember texpr ')' mintro mblock cont { @@ -531,7 +531,7 @@ sideff : error | expr FOR expr { $$ = newFOROP(0, NULL, $3, $1, NULL); parser->copline = (line_t)$2; } - | expr WHEN expr + | expr WHERESO expr { $$ = newWHENOP($3, op_scope($1)); } ; |