regcomp.c: remove unnecessary tests

[perl5.git] / regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 23824ac..a791864 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4724,7 +4724,7 @@ reStudy:
        if (PL_regkind[OP(first)] == EXACT) {
            if (OP(first) == EXACT)
                NOOP;   /* Empty, get anchored substr later. */
-           else if ((OP(first) == EXACTF || OP(first) == EXACTFL))
+           else
                ri->regstclass = first;
        }
 #ifdef TRIE_STCLASS