diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-26 01:30:25 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-26 01:30:25 +0000 |
| commit | d98d5fffa337682ca6cac752b32ff55e863a53a0 (patch) | |
| tree | 5646cc0346e5300e94342be857a116e70c22528d /toke.c | |
| parent | a7ae9550f26a080556f67048e2697d3c5a20f9f4 (diff) | |
| download | perl-d98d5fffa337682ca6cac752b32ff55e863a53a0.tar.gz | |
specify type of bracket in "Unmatched bracket" diagnostic;
prefer 'brace' or 'curly bracket' over 'curly brace'
p4raw-id: //depot/perl@3170
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1928,7 +1928,7 @@ int yylex(PERL_YYLEX_PARAM_DECL) PL_last_uni = 0; PL_last_lop = 0; if (PL_lex_brackets) - yyerror("Missing right bracket"); + yyerror("Missing right curly or square bracket"); TOKEN(0); } if (s++ < PL_bufend) @@ -2372,7 +2372,7 @@ int yylex(PERL_YYLEX_PARAM_DECL) case ']': s++; if (PL_lex_brackets <= 0) - yyerror("Unmatched right bracket"); + yyerror("Unmatched right square bracket"); else --PL_lex_brackets; if (PL_lex_state == LEX_INTERPNORMAL) { @@ -2529,7 +2529,7 @@ int yylex(PERL_YYLEX_PARAM_DECL) rightbracket: s++; if (PL_lex_brackets <= 0) - yyerror("Unmatched right bracket"); + yyerror("Unmatched right curly bracket"); else PL_expect = (expectation)PL_lex_brackstack[--PL_lex_brackets]; if (PL_lex_brackets < PL_lex_formbrack) |