Upgrade to CPAN-1.87_62

[p5sagit/p5-mst-13.2.git] / regcomp.c

diff --git a/regcomp.c b/regcomp.c
index d70c8e9..9612c93 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5700,7 +5700,7 @@ STATIC regnode *
 S_regclass(pTHX_ RExC_state_t *pRExC_state, U32 depth)
 {
     dVAR;
-    register UV value;
+    register UV value = 0;
     register UV nextvalue;
     register IV prevvalue = OOB_UNICODE;
     register IV range = 0;
@@ -7007,7 +7007,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
         if ( IS_ANYOF_TRIE(op) || trie->bitmap ) {
             int i;
             int rangestart = -1;
-            U8* bitmap = IS_ANYOF_TRIE(op) ? ANYOF_BITMAP(o) : TRIE_BITMAP(trie);
+            U8* bitmap = IS_ANYOF_TRIE(op) ? (U8*)ANYOF_BITMAP(o) : (U8*)TRIE_BITMAP(trie);
             Perl_sv_catpvf(aTHX_ sv, "[");
             for (i = 0; i <= 256; i++) {
                 if (i < 256 && BITMAP_TEST(bitmap,i)) {