doio.c Change a variable from char* to U8*

This removes 6 casts and adds 1, resulting in cleaner looking code.

Author: khwilliamson

doio.c

@@ -2214,36 +2214,37 @@ Perl_do_print(pTHX_ SV *sv, PerlIO *fp)
     else {
         STRLEN len;
         /* Do this first to trigger any overloading.  */
-        const char *tmps = SvPV_const(sv, len);
+        const U8 *tmps = (const U8 *) SvPV_const(sv, len);
         U8 *tmpbuf = NULL;
+
         bool happy = TRUE;
 
         if (PerlIO_isutf8(fp)) { /* If the stream is utf8 ... */
             if (!SvUTF8(sv)) {	/* Convert to utf8 if necessary */
                 /* We don't modify the original scalar.  */
-                tmpbuf = bytes_to_utf8((const U8*) tmps, &len);
-                tmps = (char *) tmpbuf;
+                tmpbuf = bytes_to_utf8(tmps, &len);
+                tmps = tmpbuf;
             }
             else if (ckWARN4_d(WARN_UTF8, WARN_SURROGATE, WARN_NON_UNICODE, WARN_NONCHAR)) {
-                (void) check_utf8_print((const U8*) tmps, len);
+                (void) check_utf8_print(tmps, len);
             }
         } /* else stream isn't utf8 */
         else if (DO_UTF8(sv)) { /* But if is utf8 internally, attempt to
                                    convert to bytes */
             STRLEN tmplen = len;
             bool utf8 = TRUE;
-            U8 * const result = bytes_from_utf8((const U8*) tmps, &tmplen, &utf8);
+            U8 * const result = bytes_from_utf8(tmps, &tmplen, &utf8);
             if (!utf8) {
 
                 /* Here, succeeded in downgrading from utf8.  Set up to below
                  * output the converted value */
                 tmpbuf = result;
-                tmps = (char *) tmpbuf;
+                tmps = tmpbuf;
                 len = tmplen;
             }
             else {  /* Non-utf8 output stream, but string only representable in
                        utf8 */
-                assert((char *)result == tmps);
+                assert(result == tmps);
                 Perl_ck_warner_d(aTHX_ packWARN(WARN_UTF8),
                                  "Wide character in %s",
                                    PL_op ? OP_DESC(PL_op) : "print"