regcomp.c casting tweak

From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.1.5.0.20020708124433.034a5dd8@exchi01>

p4raw-id: //depot/perl@17422

diff --git a/regcomp.c b/regcomp.c
index 7b9f53f..3055876 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4887,7 +4887,7 @@ Perl_pregfree(pTHX_ struct regexp *r)
 
         s = (r->reganch & ROPT_UTF8) ? pv_uni_display(dsv, (U8*)r->precomp,
                r->prelen, 60, UNI_DISPLAY_REGEX)
-            : pv_display(dsv, (U8*)r->precomp, r->prelen, 0, 60);
+            : pv_display(dsv, r->precomp, r->prelen, 0, 60);
         len = SvCUR(dsv);
         if (!PL_colorset)
              reginitcolors();