diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-19 13:41:41 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-19 13:41:41 +0000 |
| commit | 66e6b4c55568ab053eb52b573c61e4e3f9235b32 (patch) | |
| tree | 6ddddda74ebd725522b8c265d35e5cd8fbdad696 /regcomp.c | |
| parent | dd5def096b7b2dabfe2022669c29c16240d7da96 (diff) | |
| download | perl-66e6b4c55568ab053eb52b573c61e4e3f9235b32.tar.gz | |
Actually, only changes to regexec.c from #30081 needed to be reverted.
p4raw-id: //depot/perl@30352
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -4710,8 +4710,9 @@ Perl_reg_named_buff_get(pTHX_ const REGEXP * const rx, SV* namesv, U32 flags) SV* sv_dat=HeVAL(he_str); I32 *nums=(I32*)SvPVX(sv_dat); for ( i=0; i<SvIVX(sv_dat); i++ ) { - if ((I32)(rx->lastparen) >= nums[i] && - rx->endp[nums[i]] != -1) + if ((I32)(rx->nparens) >= nums[i] + && rx->startp[nums[i]] != -1 + && rx->endp[nums[i]] != -1) { ret = CALLREG_NUMBUF(rx,nums[i],NULL); if (!retarray) |