diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2014-05-22 06:12:59 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2014-05-22 06:12:59 +0300 |
| commit | 3da3dbeb0116c0cfe2590e7fa0676b8a0f12fd68 (patch) | |
| tree | 3736d20106437a06fc59af91be6f83c954c6252c /awkgram.y | |
| parent | 684968d926e000a4c82b47fbc2a5b24e564e8400 (diff) | |
| parent | cb3db09270b4caaddb0d606ec892841c149698eb (diff) | |
| download | egawk-3da3dbeb0116c0cfe2590e7fa0676b8a0f12fd68.tar.gz egawk-3da3dbeb0116c0cfe2590e7fa0676b8a0f12fd68.tar.bz2 egawk-3da3dbeb0116c0cfe2590e7fa0676b8a0f12fd68.zip | |
Merge branch 'gawk-4.1-stable'
Diffstat (limited to 'awkgram.y')
| -rw-r--r-- | awkgram.y | 17 |
1 files changed, 4 insertions, 13 deletions
@@ -1405,21 +1405,12 @@ simp_exp | LEX_GETLINE opt_variable input_redir { /* - * In BEGINFILE/ENDFILE, allow `getline var < file' + * In BEGINFILE/ENDFILE, allow `getline [var] < file' */ - if (rule == BEGINFILE || rule == ENDFILE) { - if ($2 != NULL && $3 != NULL) - ; /* all ok */ - else { - if ($2 != NULL) - error_ln($1->source_line, - _("`getline var' invalid inside `%s' rule"), ruletab[rule]); - else - error_ln($1->source_line, - _("`getline' invalid inside `%s' rule"), ruletab[rule]); - } - } + if ((rule == BEGINFILE || rule == ENDFILE) && $3 == NULL) + error_ln($1->source_line, + _("non-redirected `getline' invalid inside `%s' rule"), ruletab[rule]); if (do_lint && rule == END && $3 == NULL) lintwarn_ln($1->source_line, _("non-redirected `getline' undefined inside END action")); |