This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Remove 2 unnecessary break statements
authorKarl Williamson <public@khwilliamson.com>
Wed, 19 Dec 2012 20:53:02 +0000 (13:53 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 22 Dec 2012 18:11:33 +0000 (11:11 -0700)
regexec.c

index abafff6..e4dc386 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4279,13 +4279,11 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
                if (!reginclass(rex, scan, (U8*)locinput, utf8_target))
                    sayNO;
                locinput += UTF8SKIP(locinput);
-               break;
            }
            else {
                if (!REGINCLASS(rex, scan, (U8*)locinput))
                    sayNO;
                locinput++;
-               break;
            }
            break;