From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 8 Feb 2003 18:22:42 +0000 (+0000)
Subject: Signedness nits.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3b9ce0f2eed4dfc9dec3df94bf1336eea7ecf86;p=p5sagit%2Fp5-mst-13.2.git

Signedness nits.

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

diff --git a/toke.c b/toke.c
index 6b27a37..4cc5d4c 100644
--- a/toke.c
+++ b/toke.c
@@ -6901,7 +6901,7 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims)
 	termlen = 1;
     }
     else {
-	termcode = utf8_to_uvchr(s, &termlen);
+	termcode = utf8_to_uvchr((U8*)s, &termlen);
 	Copy(s, termstr, termlen, U8);
 	if (!UTF8_IS_INVARIANT(term))
 	    has_utf8 = TRUE;
@@ -6935,7 +6935,7 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims)
 	    while (cont) {
 		int offset = s - SvPVX(PL_linestr);
 		bool found = sv_cat_decode(sv, PL_encoding, PL_linestr,
-					   &offset, termstr, termlen);
+					   &offset, (char*)termstr, termlen);
 		char *ns = SvPVX(PL_linestr) + offset;
 		char *svlast = SvEND(sv) - 1;
 
@@ -7023,7 +7023,7 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims)
 		else if (*s == term) {
 		    if (termlen == 1)
 			break;
-		    if (s+termlen <= PL_bufend && memEQ(s, termstr, termlen))
+		    if (s+termlen <= PL_bufend && memEQ(s, (char*)termstr, termlen))
 			break;
 		}
 		else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF)