From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 9 Oct 2006 12:47:11 +0000 (+0300)
Subject: Re: [PATCH] regexec.c: goto crossing initialization
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff1157ca1ff1e9cd225f8c77b56c0020eef9433d;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] regexec.c: goto crossing initialization
Message-ID: <452A1A9F.4080103@iki.fi>

p4raw-id: //depot/perl@28968
---

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);