This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Another confusing comment; this time in regcomp.c
authorFather Chrysostomos <sprout@cpan.org>
Wed, 30 Nov 2011 17:34:46 +0000 (09:34 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 30 Nov 2011 17:34:46 +0000 (09:34 -0800)
This one comes from c2123ae38.

And we shouldn’t be suing our mothers’ tykes. :-)

regcomp.c

index 70e9e2f..b1b8e6f 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -12045,7 +12045,8 @@ Perl_re_dup_guts(pTHX_ const REGEXP *sstr, REGEXP *dstr, CLONE_PARAMS *param)
               1: a buffer in a different thread
               2: something we no longer hold a reference on
               so we need to copy it locally.  */
-           /* Note we need to sue SvCUR() on our mother_re, because it, in
+           /* Note we need to use SvCUR(), rather than
+              SvLEN(), on our mother_re, because it, in
               turn, may well be pointing to its own mother_re.  */
            SvPV_set(dstr, SAVEPVN(SvPVX_const(ret->mother_re),
                                   SvCUR(ret->mother_re)+1));