summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2021-01-13 20:17:19 -0700
committerKarl Williamson <khw@cpan.org>2021-01-20 06:51:49 -0700
commit6fab1cd3d01b1727683adef1fd9c531f4e7d4d62 (patch)
tree4749cf92eedef46182cd09e71d333fb2ada35109
parentc4e03e733b121b8cc35108564bddbb4a97d224d9 (diff)
downloadperl-6fab1cd3d01b1727683adef1fd9c531f4e7d4d62.tar.gz
toke.c: White-space, comment only
-rw-r--r--toke.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/toke.c b/toke.c
index a70d605b25..cc8d060b29 100644
--- a/toke.c
+++ b/toke.c
@@ -3856,7 +3856,7 @@ S_scan_const(pTHX_ char *start)
}
/* Pass everything through unchanged.
- * +1 is for the '}' */
+ * +1 is to include the '}' */
Copy(bslash, d, rbrace - bslash + 1, char);
d += rbrace - bslash + 1;
}
@@ -3924,7 +3924,7 @@ S_scan_const(pTHX_ char *start)
}
}
}
- else /* Here is \N{NAME} but not \N{U+...}. */
+ else /* Here is \N{NAME} but not \N{U+...}. */
if (! (res = get_and_check_backslash_N_name_wrapper(s, rbrace)))
{ /* Failed. We should die eventually, but for now use a NUL
to keep parsing */
@@ -4099,7 +4099,7 @@ S_scan_const(pTHX_ char *start)
d = SvPVX(sv) + SvCUR(sv);
}
d_is_utf8 = TRUE;
- } else if (len > (STRLEN)(rbrace - s + 4)) { /* I _guess_ 4 is \N{} --jhi */
+ } else if (len > (STRLEN)(rbrace - s + 4)) { /* +4 is for \N{} */
/* See Note on sizing above. (NOTE: SvCUR() is not
* set correctly here). */