diff options
author | Karl Williamson <public@khwilliamson.com> | 2010-12-04 11:18:23 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-12-04 12:12:31 -0800 |
commit | 83d7b90b27280e51b29e1485a653a4957ac99a2b (patch) | |
tree | 95b885be100cc5c7515c31c7a2f504b44ec8b7a8 /regexec.c | |
parent | acdf4139917b732417d6f16c26d2fd91e2abe3f5 (diff) | |
download | perl-83d7b90b27280e51b29e1485a653a4957ac99a2b.tar.gz |
regexec.c: Clean up initialized vars in switch
Commit cf5c578b88887f19f7fba519bbc12296 attempted to clean up d7ef4b73,
but did not get it quite right. This fixes it, after consultation with
the author.
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -3961,6 +3961,8 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) case NREF: type = REF; + folder = NULL; + fold_array = NULL; do_nref: /* For the named back references, find the corresponding buffer @@ -3986,9 +3988,12 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) case REFF: folder = foldEQ; fold_array = PL_fold; - /* FALL THROUGH */ + goto do_ref; case REF: + folder = NULL; + fold_array = NULL; + do_ref: type = OP(scan); n = ARG(scan); /* which paren pair */ |