diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-24 02:50:20 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-24 02:50:20 +0000 |
| commit | 399388f477781ca816dab1ea03623ab6ca5c7aa7 (patch) | |
| tree | 026906f147779487b5e4e9e7ff497484deb13ec2 /toke.c | |
| parent | f96ec2a286b2f6894935f96d87679d41cc20f6f6 (diff) | |
| download | perl-399388f477781ca816dab1ea03623ab6ca5c7aa7.tar.gz | |
better "Illegal %s digit ignored" warnings
p4raw-id: //depot/perl@3137
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -6058,17 +6058,17 @@ scan_num(char *start) /* 8 and 9 are not octal */ case '8': case '9': if (shift == 3) - yyerror("Illegal octal digit"); + yyerror(form("Illegal octal digit '%c'", *s)); else if (shift == 1) - yyerror("Illegal binary digit"); + yyerror(form("Illegal binary digit '%c'", *s)); /* FALL THROUGH */ /* octal digits */ case '2': case '3': case '4': case '5': case '6': case '7': if (shift == 1) - yyerror("Illegal binary digit"); + yyerror(form("Illegal binary digit '%c'", *s)); /* FALL THROUGH */ case '0': case '1': |