diff options
author | Karl Williamson <khw@cpan.org> | 2021-01-13 20:17:19 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-01-20 06:51:49 -0700 |
commit | 6fab1cd3d01b1727683adef1fd9c531f4e7d4d62 (patch) | |
tree | 4749cf92eedef46182cd09e71d333fb2ada35109 /toke.c | |
parent | c4e03e733b121b8cc35108564bddbb4a97d224d9 (diff) | |
download | perl-6fab1cd3d01b1727683adef1fd9c531f4e7d4d62.tar.gz |
toke.c: White-space, comment only
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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). */ |