From ff1157ca1ff1e9cd225f8c77b56c0020eef9433d Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 9 Oct 2006 15:47:11 +0300 Subject: [PATCH] Re: [PATCH] regexec.c: goto crossing initialization Message-ID: <452A1A9F.4080103@iki.fi> p4raw-id: //depot/perl@28968 --- regexec.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/regexec.c b/regexec.c index 2743c53..6660b60 100644 --- a/regexec.c +++ b/regexec.c @@ -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); -- 2.7.4