diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1999-02-17 10:06:01 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-17 21:18:21 +0000 |
| commit | dfad63adc8924929eac70ad8db0652253a4efff0 (patch) | |
| tree | e6bee02f444f53965585421a16f6ce5ca5e04cfd /regexec.c | |
| parent | f4ea8be436d63a2d4ad8e73df68153800c505ef9 (diff) | |
| download | perl-dfad63adc8924929eac70ad8db0652253a4efff0.tar.gz | |
fix comppad handling for failures in eval 'qr/(?p{...})/'
Message-Id: <199902171006.KAA10204@crypt.compulink.co.uk>
Subject: Re: [5.005_53] panic: pad_free curpad
p4raw-id: //depot/perl@2963
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1664,7 +1664,7 @@ regmatch(regnode *prog) n = ARG(scan); PL_op = (OP_4tree*)PL_regdata->data[n]; DEBUG_r( PerlIO_printf(Perl_debug_log, " re_eval 0x%x\n", PL_op) ); - PL_curpad = AvARRAY((AV*)PL_regdata->data[n + 1]); + PL_curpad = AvARRAY((AV*)PL_regdata->data[n + 2]); PL_reg_magic->mg_len = locinput - PL_bostr; PL_regendp[0] = locinput; |