Re: [PATCH] regexec.c: goto crossing initialization
Jarkko Hietaniemi [Mon, 9 Oct 2006 12:47:11 +0000 (15:47 +0300)]
Message-ID: <452A1A9F.4080103@iki.fi>

p4raw-id: //depot/perl@28968

regexec.c

index 2743c53..6660b60 100644 (file)
--- 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);