From f8a5326820b68c5377aac46021f5e9c6020c8c1a Mon Sep 17 00:00:00 2001 From: James E Keenan Date: Sat, 24 Dec 2022 21:30:00 +0000 Subject: toke.c: Manual correction of typos from GH 20435 This commit only corrects typos in comments. A subsequent commit will change the spelling of a variable. --- toke.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 6a3d306e88..76fb7c84ba 100644 --- a/toke.c +++ b/toke.c @@ -9043,7 +9043,7 @@ yyl_try(pTHX_ char *s) && strchr(PL_splitstr + 1, *PL_splitstr)) { /* strchr is ok, because -F pattern can't contain - * embeddded NULs */ + * embedded NULs */ Perl_sv_catpvf(aTHX_ PL_linestr, "our @F=split(%s);", PL_splitstr); } else { @@ -11212,7 +11212,7 @@ S_scan_heredoc(pTHX_ char *s) } } /* while */ - /* avoid sv_setsv() as we dont wan't to COW here */ + /* avoid sv_setsv() as we don't want to COW here */ sv_setpvn(tmpstr,SvPVX(newstr),SvCUR(newstr)); Safefree(indent); SvREFCNT_dec_NN(newstr); @@ -11579,7 +11579,7 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int : * (U8 *) close_delim_str; } else { /* Here, the delimiter isn't paired, hence the close is the same as - the open; and has aready been set up. But make sure it isn't + the open; and has already been set up. But make sure it isn't deprecated to use this particular delimiter, as we plan eventually to make it paired. */ if (ninstr(deprecated_opening_delims, deprecated_delims_end, @@ -11591,7 +11591,7 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int } /* Note that a NUL may be used as a delimiter, and this happens when - * delimitting an empty string, and no special handling for it is + * delimiting an empty string, and no special handling for it is * needed, as ninstr() calls are used */ } -- cgit v1.2.1