From 399388f477781ca816dab1ea03623ab6ca5c7aa7 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Wed, 24 Mar 1999 02:50:20 +0000 Subject: better "Illegal %s digit ignored" warnings p4raw-id: //depot/perl@3137 --- toke.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 63408570dd..4b26a6407b 100644 --- a/toke.c +++ b/toke.c @@ -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': -- cgit v1.2.1