diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-10-09 15:47:11 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-09 10:02:08 +0000 |
| commit | ff1157ca1ff1e9cd225f8c77b56c0020eef9433d (patch) | |
| tree | cac0e030400238261fb2fec1c7f7ab8a98018376 /regexec.c | |
| parent | e62cc96aadf7217b976ed2782e6fe409b2646a3b (diff) | |
| download | perl-ff1157ca1ff1e9cd225f8c77b56c0020eef9433d.tar.gz | |
Re: [PATCH] regexec.c: goto crossing initialization
Message-ID: <452A1A9F.4080103@iki.fi>
p4raw-id: //depot/perl@28968
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3294,11 +3294,12 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog) case NREFFL: { char *s; - char type = OP(scan); + char type; PL_reg_flags |= RF_tainted; /* FALL THROUGH */ case NREF: case NREFF: + type = OP(scan); { SV *sv_dat=(SV*)rex->data->data[ ARG( scan ) ]; I32 *nums=(I32*)SvPVX(sv_dat); |