diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-10 19:52:55 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-10 20:12:37 -0700 |
| commit | 6ef69d5658db4ad50735ca636cb8e029a4066d15 (patch) | |
| tree | 7694337c70ea2462fdd015bdf17153fc5bf3d88b /regexec.c | |
| parent | 81a5ff157a0f5e961a89ba2b873dd463cf2df856 (diff) | |
| download | perl-6ef69d5658db4ad50735ca636cb8e029a4066d15.tar.gz | |
regexec.c: Use equivalent macro instead of code
Recent simplification of this code left it to be the equivalent
of an existing macro
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 14 |
1 files changed, 1 insertions, 13 deletions
@@ -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: |