In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/1520a685b7fb85729eee719408471f380b80a87a?hp=a42823ac3c233f0a9b8aefaac74a3b1e1600e6f6>
- Log ----------------------------------------------------------------- commit 1520a685b7fb85729eee719408471f380b80a87a Author: Karl Williamson <[email protected]> Date: Tue Jul 30 18:29:37 2013 -0600 regcomp.c: Fix yet another C89 problem In my haste to get a42823ac3c233f0a9b8aefaac74a3b1e1600e6f6 out, I neglected to see this second instance of a improperly placed declaration. ----------------------------------------------------------------------- Summary of changes: regcomp.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/regcomp.c b/regcomp.c index 1a2503f..3283054 100644 --- a/regcomp.c +++ b/regcomp.c @@ -14787,6 +14787,8 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o) else if (ANYOF_NONBITMAP(o)) { SV *lv; /* Set if there is something outside the bit map. */ SV * sw; + bool byte_output = FALSE; /* If something in the bitmap has been + output */ if (flags & ANYOF_NONBITMAP_NON_UTF8) { sv_catpvs(sv, "{outside bitmap}"); @@ -14797,8 +14799,6 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o) /* Get the stuff that wasn't in the bitmap */ sw = regclass_swash(prog, o, FALSE, &lv, NULL); - bool byte_output = FALSE; /* If something in the bitmap has been - output */ if (lv && lv != &PL_sv_undef) { char *s = savesvpv(lv); char * const origs = s; -- Perl5 Master Repository
