regcomp.c: With ACCEPT set stopmin even if no data struct present

[perl5.git] / regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 5830a76..d8bf687 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -6514,11 +6514,10 @@ S_study_chunk(pTHX_
             if (OP(scan)==ACCEPT) {
                 /* m{(*ACCEPT)x} does not have to start with 'x' */
                 flags &= ~SCF_DO_STCLASS;
-                if (data) {
+                if (data)
                     data->flags |= SCF_SEEN_ACCEPT;
-                    if (stopmin > min)
-                        stopmin = min;
-                }
+                if (stopmin > min)
+                    stopmin = min;
             }
         }
         else if (OP(scan) == COMMIT) {