diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-07-01 14:28:04 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-01 13:40:44 +0000 |
| commit | faf11cac614129491d0258772ee4e6f8a3fb39e8 (patch) | |
| tree | f22508193de69b5d6e18b2de462abe026471e8c3 /regexec.c | |
| parent | 7f17c5141d7d488a184915d744f3ef35257927e7 (diff) | |
| download | perl-faf11cac614129491d0258772ee4e6f8a3fb39e8.tar.gz | |
Re: [ID 20020630.002] utf8 regex only matches 32k
Message-Id: <200207011228.g61CS4T06766@crypt.compulink.co.uk>
Date: Mon, 01 Jul 2002 13:28:04 +0100
p4raw-id: //depot/perl@17390
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3990,7 +3990,9 @@ S_regrepeat(pTHX_ regnode *p, I32 max) register bool do_utf8 = PL_reg_match_utf8; scan = PL_reginput; - if (max != REG_INFTY && max < loceol - scan) + if (max == REG_INFTY) + max = I32_MAX; + else if (max < loceol - scan) loceol = scan + max; switch (OP(p)) { case REG_ANY: |