This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: revise comment
authorKarl Williamson <public@khwilliamson.com>
Wed, 9 Nov 2011 17:41:00 +0000 (10:41 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 9 Nov 2011 17:59:41 +0000 (10:59 -0700)
regexec.c

index 43cc5d7..4b8af52 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -1567,10 +1567,12 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
                e = s;                  /* Due to minlen logic of intuit() */
            }
 
-           /* XXX Note that we could recalculate e every so-often through the
-            * loop to stop earlier, as the worst case expansion above will
-            * rarely be met, and as we go along we would usually find that e
-            * moves further to the left.  Unclear if worth the expense */
+           /* XXX Note that we could recalculate e to stop the loop earlier,
+            * as the worst case expansion above will rarely be met, and as we
+            * go along we would usually find that e moves further to the left.
+            * This would happen only after we reached the point in the loop
+            * where if there were no expansion we should fail.  Unclear if
+            * worth the expense */
 
            while (s <= e) {
                char *my_strend= (char *)strend;