pv_escape: Use utf8_to_uv, preferred to utf8_to_uvchr_buf

Author: khwilliamson

dump.c

@@ -231,7 +231,15 @@ Perl_pv_escape( pTHX_ SV *dsv, char const * const str,
         isuni = 1;
 
     for ( ; pv < end ; pv += readsize ) {
-        const UV u= (isuni) ? utf8_to_uvchr_buf((U8*)pv, (U8*) end, &readsize) : (U8)*pv;
+        UV u;
+        if (isuni) {
+            /* No need to check for being wellformed, as the is_utf8_string()
+             * above already did */
+            (void) utf8_to_uv((U8*)pv, (U8*) end, &u, &readsize);
+        }
+        else {
+            u = (U8)*pv;
+        }
         const U8 c = (U8)u;
         const char *source_buf = octbuf;