diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-05-09 21:23:57 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-05-09 21:23:57 +0000 |
| commit | e2ae18322e820d209c08ca6740d8938b0267c7d7 (patch) | |
| tree | 10ff934fb2c1d6516e403b23450f607e7af523aa /toke.c | |
| parent | 3ebc477e067177dc30c7d86751fff682e5e03168 (diff) | |
| download | perl-e2ae18322e820d209c08ca6740d8938b0267c7d7.tar.gz | |
Remove the error messages "Final @ should be \@ or @name"
and "Final % should be \% or %name", that appear to be
only produced in addition to another syntax error, and therefore
misleading, if I understand correctly that kind of black magic.
p4raw-id: //depot/perl@19468
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -2940,8 +2940,6 @@ Perl_yylex(pTHX) PL_tokenbuf[0] = '%'; s = scan_ident(s, PL_bufend, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1, TRUE); if (!PL_tokenbuf[1]) { - if (s == PL_bufend) - yyerror("Final % should be \\% or %name"); PREREF('%'); } PL_pending_ident = '%'; @@ -3575,8 +3573,6 @@ Perl_yylex(pTHX) PL_tokenbuf[0] = '@'; s = scan_ident(s, PL_bufend, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1, FALSE); if (!PL_tokenbuf[1]) { - if (s == PL_bufend) - yyerror("Final @ should be \\@ or @name"); PREREF('@'); } if (PL_lex_state == LEX_NORMAL) |