From bb6b75cd5c416da00accfd5a10bde1a1cdde693a Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Mon, 25 Jul 2016 11:37:37 +0100 Subject: ucfirst() new signature diagnostic messages e.g. a slurpy parameter may not have a default value => A slurpy parameter may not have a default value Also, split the "Too %s arguments for subroutine" diagnostic into separate "too few" and "too many" entries in perldiag. Based on suggestions by Father Chrysostomos. --- toke.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 74313dc459..663e591549 100644 --- a/toke.c +++ b/toke.c @@ -4827,7 +4827,7 @@ Perl_yylex(pTHX) case '%': /* spot stuff that looks like an prototype */ if (strchr("$:@%&*;\\[]", *s)) { - yyerror("illegal character following sigil in a subroutine signature"); + yyerror("Illegal character following sigil in a subroutine signature"); break; } /* '$#' is banned, while '$ # comment' isn't */ @@ -4857,7 +4857,7 @@ Perl_yylex(pTHX) break; default: - yyerror("a signature parameter must start with '$', '@' or '%'"); + yyerror("A signature parameter must start with '$', '@' or '%'"); /* very crude error recovery: skip to likely next signature * element */ while (*s && *s != '$' && *s != '@' && *s != '%' && *s != ')') -- cgit v1.2.1