regcomp.c - simplify logic to eliminate unreached code

[perl5.git] / regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 5d30cbb..612f6aa 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -11247,10 +11247,7 @@ S_optimize_regclass(pTHX_
                 if (*invert) {
                     goto return_OPFAIL;
                 }
-                else {
-                    goto return_SANY;
-                }
-                return op;
+                goto return_SANY;
             }
         }