This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Reword comment
authorKarl Williamson <public@khwilliamson.com>
Sat, 25 Aug 2012 14:06:30 +0000 (08:06 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 26 Aug 2012 05:21:29 +0000 (23:21 -0600)
This portion of the comment is unnecessary, and doesn't really reflect
the implementation

regexec.c

index 5da40f8..469a7fc 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -3952,11 +3952,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
                   | (L* ( LVT | ( V | LV ) V*) T*)
 
               The last two terms can be combined like this:
-                  L* ( L
-                       | (( LVT | ( V | LV ) V*) T*))
-
-              And refactored into this:
-                  L* (L | LVT T* | V  V* T* | LV  V* T*)
+                  L* ( L | (( LVT | ( V | LV ) V*) T*))
 
               That means that if we have seen any L's at all we can quit
               there, but if the next character is an LVT, a V, or an LV we