From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 15 Jan 2001 20:49:20 +0000 (+0000)
Subject: Signedness nit.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f86aaa290fd366a2f22c4dad17ad31e9ef3c6111;p=p5sagit%2Fp5-mst-13.2.git

Signedness nit.

p4raw-id: //depot/perl@8446
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 5490221..487a8d2 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -119,12 +119,12 @@ PP(pp_regcomp)
 	    else {
 		pm->op_pmdynflags &= ~PMdf_DYN_UTF8;
 		if (pm->op_pmdynflags & PMdf_UTF8)
-		    t = bytes_to_utf8(t, &len);
+		    t = (char*)bytes_to_utf8((U8*)t, &len);
 	    }
 	    pm->op_pmregexp = CALLREGCOMP(aTHX_ t, t + len, pm);
 	    if (!DO_UTF8(tmpstr) && (pm->op_pmdynflags & PMdf_UTF8))
 		Safefree(t);
-	    PL_reginterp_cnt = 0;		/* XXXX Be extra paranoid - needed
+	    PL_reginterp_cnt = 0;	/* XXXX Be extra paranoid - needed
 					   inside tie/overload accessors.  */
 	}
     }