Change 14115: [PATCH regcomp.c] leading (.*) should not be implicitly ^'d

[Jarkko Hietaniemi]

Change 14115 by jhi@alpha on 2002/01/07 13:48:06

        Subject: [PATCH regcomp.c] leading (.*) should not be implicitly ^'d  
        From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]>
        Date: Sun, 6 Jan 2002 15:36:21 -0500 (EST)
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/regcomp.c#275 edit

Differences ...

==== //depot/perl/regcomp.c#275 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~  Mon Jan  7 07:00:05 2002
+++ perl/regcomp.c      Mon Jan  7 07:00:05 2002
@@ -1848,7 +1848,7 @@
            first = NEXTOPER(first);
            goto again;
        }
-       else if ((OP(first) == STAR &&
+       else if (!sawopen && (OP(first) == STAR &&
            PL_regkind[(U8)OP(NEXTOPER(first))] == REG_ANY) &&
            !(r->reganch & ROPT_ANCH) )
        {
End of Patch.