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

Signedness nit.

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

diff --git a/sv.c b/sv.c
index c53486a..7bd628e 100644
--- a/sv.c
+++ b/sv.c
@@ -4696,14 +4696,14 @@ Perl_sv_eq(pTHX_ register SV *sv1, register SV *sv2)
 	    return FALSE;
 
 	if (SvUTF8(sv1)) {
-	    char *pv = bytes_from_utf8((U8*)pv1, &cur1, &is_utf8);
+	    char *pv = (char*)bytes_from_utf8((U8*)pv1, &cur1, &is_utf8);
 	    if (is_utf8)
 		return 0;
 	    pv1tmp = (pv != pv1);
 	    pv1 = pv;
 	}
 	else {
-	    char *pv = bytes_from_utf8((U8*)pv2, &cur2, &is_utf8);
+	    char *pv = (char *)bytes_from_utf8((U8*)pv2, &cur2, &is_utf8);
 	    if (is_utf8)
 		return 0;
 	    pv2tmp = (pv != pv2);