1 files changed, 3 insertions, 0 deletions
diff --git a/pp_sys.c b/pp_sys.c
index e7a9de1880..a333b1053a 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1842,6 +1842,9 @@ PP(pp_send)
 	    /* See the note at doio.c:do_print about filesize limits. --jhi */
 	    retval = PerlLIO_write(PerlIO_fileno(IoIFP(io)),
 				   buffer, length);
+	    if (DO_UTF8(bufsv))
+	        retval = utf8_length((U8*)SvPVX(bufsv),
+				     (U8*)SvPVX(bufsv) + retval);
 	}
     }
 #ifdef HAS_SOCKET