In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a42823ac3c233f0a9b8aefaac74a3b1e1600e6f6?hp=5b0e71e9d506c1ab9c6f6799139a008b4f779835>
- Log ----------------------------------------------------------------- commit a42823ac3c233f0a9b8aefaac74a3b1e1600e6f6 Author: Karl Williamson <[email protected]> Date: Tue Jul 30 17:00:27 2013 -0600 regcomp.c: Properly declare variable with C89 Commit 89d3fa0ee43d5c7489581a62b3d662c316bfcb43 introduced a syntax error under C89 compilers, as it removed braces so a declaration wasn't the first thing in a block. This adds a declaration in the proper place. ----------------------------------------------------------------------- Summary of changes: regcomp.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/regcomp.c b/regcomp.c index 256b1f2..1a2503f 100644 --- a/regcomp.c +++ b/regcomp.c @@ -14786,6 +14786,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o) sv_catpvs(sv, "{unicode_all}"); else if (ANYOF_NONBITMAP(o)) { SV *lv; /* Set if there is something outside the bit map. */ + SV * sw; if (flags & ANYOF_NONBITMAP_NON_UTF8) { sv_catpvs(sv, "{outside bitmap}"); @@ -14795,7 +14796,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o) } /* Get the stuff that wasn't in the bitmap */ - SV * const sw = regclass_swash(prog, o, FALSE, &lv, NULL); + 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) { -- Perl5 Master Repository
