Re: Net::SMTP can't send large messages with bleadperl

[perl5.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index b05a177..a4c5aee 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4219,12 +4219,6 @@ NULL
 
        case BRANCH:        /*  /(...|A|...)/ */
            scan = NEXTOPER(scan); /* scan now points to inner node */
-           if ((!next || (OP(next) != BRANCH && OP(next) != BRANCHJ)) 
-               && !has_cutgroup)
-           {
-               /* last branch; skip state push and jump direct to node */
-               continue;
-            }
            ST.lastparen = *PL_reglastparen;
            ST.next_branch = next;
            REGCP_SET(ST.cp);