In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f3f8e4db67701975a5ba97e3b2d03ced0772e666?hp=11a12be6c2df2fcd9601f9fde8c7df8c7538c956>
- Log ----------------------------------------------------------------- commit f3f8e4db67701975a5ba97e3b2d03ced0772e666 Author: Lukas Mai <[email protected]> Date: Wed Oct 12 02:20:18 2016 +0200 op.c: fix what looks like typos in comments ----------------------------------------------------------------------- Summary of changes: op.c | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/op.c b/op.c index 86e1f0c..697faa7 100644 --- a/op.c +++ b/op.c @@ -4763,7 +4763,7 @@ Perl_op_convert_list(pTHX_ I32 type, I32 flags, OP *o) if (type != OP_SPLIT) /* At this point o is a LISTOP, but OP_SPLIT is a PMOP; let * ck_split() create a real PMOP and leave the op's type as listop - * for for now. Otherwise op_free() etc will crash. + * for now. Otherwise op_free() etc will crash. */ OpTYPE_set(o, type); @@ -5594,7 +5594,7 @@ S_set_haseval(pTHX) * constant), or convert expr into a runtime regcomp op sequence (if it's * not) * - * Flags currently has 2 bits or meaning: + * Flags currently has 2 bits of meaning: * 1: isreg indicates that the pattern is part of a regex construct, eg * $x =~ /pattern/ or split /pattern/, as opposed to $x =~ $pattern or * split "pattern", which aren't. In the former case, expr will be a list @@ -11150,7 +11150,7 @@ Perl_ck_split(pTHX_ OP *o) kid = cLISTOPo->op_first; if (kid->op_type != OP_MATCH || kid->op_flags & OPf_STACKED) { - /* remove match expression, and replace with new optree with + /* remove match expression, and replace with new optree with * a match op at its head */ op_sibling_splice(o, NULL, 1, NULL); /* pmruntime will handle split " " behavior with flag==2 */ @@ -11169,10 +11169,10 @@ Perl_ck_split(pTHX_ OP *o) * into its place, then convert the match op into a split op. i.e. * * SPLIT MATCH SPLIT(ex-MATCH) - * | | | - * MATCH - A - B - C => R - A - B - C => R - A - B - C - * | | | - * R X - Y X - Y + * | | | + * MATCH - A - B - C => R - A - B - C => R - A - B - C + * | | | + * R X - Y X - Y * | * X - Y * -- Perl5 Master Repository
