diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2008-04-10 00:38:52 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-11 12:17:38 +0000 |
| commit | 89c6a13e141e02cc3af670ab47c1d41ac4e81ba0 (patch) | |
| tree | 6a3a8068d55f21ba2a69fc97675d30eb00279f89 /regcomp.c | |
| parent | 4de3d1625c1704f072e3be6fdc9d59f6bf3f6c8b (diff) | |
| download | perl-89c6a13e141e02cc3af670ab47c1d41ac4e81ba0.tar.gz | |
Re: [perl #52672] regexp failure: (?=) turns into OPFAIL
From: "Ævar Arnfjörð Bjarmason" <avarab@gmail.com>
Message-ID: <51dd1af80804091738r15d37763lf900d59f8bcc5e81@mail.gmail.com>
p4raw-id: //depot/perl@33667
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -5691,6 +5691,8 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth) RExC_seen |= REG_SEEN_LOOKBEHIND; RExC_parse++; case '=': /* (?=...) */ + RExC_seen_zerolen++; + break; case '!': /* (?!...) */ RExC_seen_zerolen++; if (*RExC_parse == ')') { |