From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 8 Jul 2002 13:17:35 +0000 (-0500)
Subject: regcomp.c casting tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f3698943a90afb22c82bdcf1624daed197996c5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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();