mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

toke.c: Convert for(;;;) to simpler while()

Browse Source 
isSPACE only matches single-byte characters; no need to be concerned
with UTF-8ness
This commit is contained in:
Karl Williamson 2025-10-02 15:36:49 -06:00 committed by Karl Williamson
parent 526049b8eb
commit 690e285d14
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
toke.c
View File

@ -701,13 +701,11 @@ S_warn_expect_operator(pTHX_ const char *const what, char *s, I32 pop_oldbufptr)
}
else if (PL_oldoldbufptr) {
/* yyerror (via yywarn) would do this itself, so we should too */
const char *t;
for (t = PL_oldoldbufptr;
t < PL_bufptr && isSPACE(*t);
t += UTF ? UTF8SKIP(t) : 1)
{
NOOP;
const char *t = PL_oldoldbufptr;
while (t < PL_bufptr && isSPACE(*t)) {
t++;
}
/* see if we can identify the cause of the warning */
if (isIDFIRST_lazy_if_safe(t,PL_bufend,UTF))
{