From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 15 Jun 2005 07:49:48 +0000 (+0000)
Subject: Fix warning nits, by Jarkko
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e2ebb21f72f169e9de6c2bde1af6eb417686775;p=p5sagit%2Fp5-mst-13.2.git

Fix warning nits, by Jarkko

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

diff --git a/sv.c b/sv.c
index 9713707..4035241 100644
--- a/sv.c
+++ b/sv.c
@@ -3939,11 +3939,11 @@ Perl_sv_utf8_upgrade_flags(pTHX_ register SV *sv, I32 flags)
 	}
 	if (hibit) {
 	    STRLEN len = SvCUR(sv) + 1; /* Plus the \0 */
-	    char *recoded = bytes_to_utf8((U8*)s, &len);
+	    U8 *recoded = bytes_to_utf8((U8*)s, &len);
 
 	    SvPV_free(sv); /* No longer using what was there before. */
 
-	    SvPV_set(sv, recoded);
+	    SvPV_set(sv, (char*)recoded);
 	    SvCUR_set(sv, len - 1);
 	    SvLEN_set(sv, len); /* No longer know the real size. */
 	}