diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-05-27 21:28:54 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-10 06:55:20 +0000 |
| commit | 5f4b28b29039444aa4497be41d052e0fe0128ede (patch) | |
| tree | dfa6ec591404f190faee95eb72958e6bffd80a56 /regexec.c | |
| parent | efb5cf875092b6297aea6e0f7a29957dd7ff8558 (diff) | |
| download | perl-5f4b28b29039444aa4497be41d052e0fe0128ede.tar.gz | |
Re: 5.004_65 uninitialized variable regexec.c (2)
p4raw-id: //depot/perl@1101
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1283,7 +1283,7 @@ regmatch(regnode *prog) minmod = 0; if (ln && regrepeat_hard(scan, ln, &l) < ln) sayNO; - if (l == 0 && n >= ln + if (ln && l == 0 && n >= ln /* In fact, this is tricky. If paren, then the fact that we did/didnot match may influence future execution. */ @@ -1301,6 +1301,7 @@ regmatch(regnode *prog) } else c1 = c2 = -1000; REGCP_SET; + /* This may be improved if l == 0. */ while (n >= ln || (n == REG_INFTY && ln > 0 && l)) { /* ln overflow ? */ /* If it could work, try it. */ if (c1 == -1000 || |