This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Properly declare variable with C89
authorKarl Williamson <public@khwilliamson.com>
Tue, 30 Jul 2013 23:00:27 +0000 (17:00 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 30 Jul 2013 23:13:42 +0000 (17:13 -0600)
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.

regcomp.c

index 256b1f2..1a2503f 100644 (file)
--- 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) {