Consting five

Message-ID: <20050325231409.GB17660@petdance.com>

[with modification - the extra argument to incpush was supposed to
be being used]

p4raw-id: //depot/perl@24081

1 files changed, 1 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index 4a25d0cb2b..834488a3ce 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2791,7 +2791,7 @@ Perl_reginitcolors(pTHX)
 		PL_colors[i] = ++s;
 	    }
 	    else
-		PL_colors[i] = s = "";
+		PL_colors[i] = s = (char *)"";
 	}
     } else {
 	while (i < 6)