[perl.git] branch blead, updated. v5.13.10-373-g6ef69d5

[Karl Williamson]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/6ef69d5658db4ad50735ca636cb8e029a4066d15?hp=81a5ff157a0f5e961a89ba2b873dd463cf2df856>

- Log -----------------------------------------------------------------
commit 6ef69d5658db4ad50735ca636cb8e029a4066d15
Author: Karl Williamson <pub...@khwilliamson.com>
Date:   Thu Mar 10 19:52:55 2011 -0700

    regexec.c: Use equivalent macro instead of code
    
    Recent simplification of this code left it to be the equivalent
    of an existing macro
-----------------------------------------------------------------------

Summary of changes:
 regexec.c |   14 +-------------
 1 files changed, 1 insertions(+), 13 deletions(-)

diff --git a/regexec.c b/regexec.c
index 69ddba5..8486646 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1413,19 +1413,7 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, 
char *s,
                           reginclass(prog, c, (U8*)s, &inclasslen, 
utf8_target));
            }
            else {
-                while (s < strend) {
-                     STRLEN skip = 1;
-
-                     if (REGINCLASS(prog, c, (U8*)s)) {
-                          if (tmp && (!reginfo || regtry(reginfo, &s)))
-                               goto got_it;
-                          else
-                               tmp = doevery;
-                     }
-                     else 
-                          tmp = 1;
-                     s += skip;
-                }
+               REXEC_FBC_CLASS_SCAN(REGINCLASS(prog, c, (U8*)s));
            }
            break;
        case CANY:

--
Perl5 Master Repository