From 0f9dce5e163445342daca512233243584bf56af9 Mon Sep 17 00:00:00 2001 From: James E Keenan Date: Mon, 17 May 2021 21:20:43 +0000 Subject: [PATCH] Remove 2nd const It was causing two build-time warnings. Corrects patch originally submitted in https://github.com/Perl/perl5/pull/18726. --- toke.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/toke.c b/toke.c index 840da81c2509..5c030b952719 100644 --- a/toke.c +++ b/toke.c @@ -93,8 +93,8 @@ Individual members of C have their own documentation. (SvTYPE(sv) >= SVt_PVNV \ && ((XPVIV*)SvANY(sv))->xiv_u.xivu_eval_seen) -static const char const ident_too_long[] = "Identifier too long"; -static const char const ident_var_zero_multi_digit[] = "Numeric variables with more than one digit may not start with '0'"; +static const char ident_too_long[] = "Identifier too long"; +static const char ident_var_zero_multi_digit[] = "Numeric variables with more than one digit may not start with '0'"; # define NEXTVAL_NEXTTOKE PL_nextval[PL_nexttoke]