Signedness nits.

p4raw-id: //depot/perl@18674

diff --git a/toke.c b/toke.c
index 6b27a37..4cc5d4c 100644 (file)
--- 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)