pp_sys.c: Use valid_utf8_length()

Perl · Jan 12, 2018 · d60084c · d60084c
1 parent e280fc7
commit d60084c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pp_sys.c b/pp_sys.c
@@ -2121,7 +2121,7 @@ PP(pp_syswrite)
 	goto say_undef;
     SP = ORIGMARK;
     if (doing_utf8)
-        retval = utf8_length((U8*)buffer, (U8*)buffer + retval);
+        retval = valid_utf8_length((U8*)buffer, (U8*)buffer + retval);
 
     Safefree(tmpbuf);
 #if Size_t_size > IVSIZE