summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2022-12-24 20:35:02 +0000
committerJames E Keenan <jkeenan@cpan.org>2022-12-29 09:39:58 -0500
commit0c6362adf0496a5a25d8b78534541f988ac9ce16 (patch)
tree2568e25b5103297354fd1cdd9f80b8ec71871b76 /op.c
parentf4ae97d054e8c75132cb621539374553cf48f64d (diff)
downloadperl-0c6362adf0496a5a25d8b78534541f988ac9ce16.tar.gz
Correct typos as per GH 20435
In GH 20435 many typos in our C code were corrected. However, this pull request was not applied to blead and developed merge conflicts. I extracted diffs for the individual modified files and applied them with 'git apply', excepting four files where patch conflicts were reported. Those files were: handy.h locale.c regcomp.c toke.c We can handle these in a subsequent commit. Also, had to run these two programs to keep 'make test_porting' happy: $ ./perl -Ilib regen/uconfig_h.pl $ ./perl -Ilib regen/regcomp.pl regnodes.h
Diffstat (limited to 'op.c')
-rw-r--r--op.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/op.c b/op.c
index 887f2fc7ad..b73425b344 100644
--- a/op.c
+++ b/op.c
@@ -6098,7 +6098,7 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
* of UTF-8 bytes to represent as every other code point in the same
* partition.
*
- * This partioning has been pre-compiled. Copy it to initialize */
+ * This partitioning has been pre-compiled. Copy it to initialize */
len = C_ARRAY_LENGTH(PL_partition_by_byte_length);
invlist_extend(t_invlist, len);
t_array = invlist_array(t_invlist);
@@ -8911,7 +8911,7 @@ Perl_newRANGE(pTHX_ I32 flags, OP *left, OP *right)
flip->op_private = left->op_type == OP_CONST ? OPpFLIP_LINENUM : 0;
flop->op_private = right->op_type == OP_CONST ? OPpFLIP_LINENUM : 0;
- /* check barewords before they might be optimized aways */
+ /* check barewords before they might be optimized away */
if (flip->op_private && cSVOPx(left)->op_private & OPpCONST_STRICT)
no_bareword_allowed(left);
if (flop->op_private && cSVOPx(right)->op_private & OPpCONST_STRICT)
@@ -9679,7 +9679,7 @@ Perl_newDEFEROP(pTHX_ I32 flags, OP *block)
start = LINKLIST(block);
- /* Hide the block inside an OP_NULL with no exection */
+ /* Hide the block inside an OP_NULL with no execution */
block = newUNOP(OP_NULL, 0, block);
block->op_next = block;