diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-02-07 10:07:27 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-07 23:26:04 +0000 |
| commit | 4327152a8da835b489f2314100b405920cc614ea (patch) | |
| tree | 7482bd3f3e844d5ca29fab8fecd5d7f0301d5a37 /regexec.c | |
| parent | 1ae175c8d48ec3f9bff4739583753d9b46939a5f (diff) | |
| download | perl-4327152a8da835b489f2314100b405920cc614ea.tar.gz | |
patch for change#2822, done right; add PERL_OBJECT stuff; regen headers
Message-ID: <19990207150726.A571@monk.mps.ohio-state.edu>
Subject: Re: fixing memory leaks in REx compilation
p4raw-link: @2822 on //depot/perl: 34184a49c8a0771dbea73b3f0519126fd5b22c2f
p4raw-id: //depot/perl@2826
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -329,7 +329,7 @@ regexec_flags(register regexp *prog, char *stringarg, register char *strend, /* Check validity of program. */ if (UCHARAT(prog->program) != REG_MAGIC) { - FAIL("corrupted regexp program"); + croak("corrupted regexp program"); } PL_reg_flags = 0; @@ -2445,7 +2445,7 @@ regmatch(regnode *prog) default: PerlIO_printf(PerlIO_stderr(), "%lx %d\n", (unsigned long)scan, OP(scan)); - FAIL("regexp memory corruption"); + croak("regexp memory corruption"); } scan = next; } @@ -2454,7 +2454,7 @@ regmatch(regnode *prog) * We get here only if there's trouble -- normally "case END" is * the terminating point. */ - FAIL("corrupted regexp pointers"); + croak("corrupted regexp pointers"); /*NOTREACHED*/ sayNO; |