regexec.c: Remove redundant line.

[perl5.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index 078b670..c80e45a 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -3633,7 +3633,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
                    goto anyof_fail;
                if (locinput >= PL_regeol)
                    sayNO;
-               locinput += inclasslen ? inclasslen : UTF8SKIP(locinput);
+               locinput += inclasslen;
                nextchr = UCHARAT(locinput);
                break;
            }