diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-18 16:34:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-18 16:34:29 +0000 |
| commit | c88828dcbffbb4012ad6dc9e62721d09fc8ce3ed (patch) | |
| tree | 12147f739f6ebc30285f132f692554913603d373 /pp_sys.c | |
| parent | 003a51c12003a23e8a5f07e66eb9bceafa71af29 (diff) | |
| download | perl-c88828dcbffbb4012ad6dc9e62721d09fc8ce3ed.tar.gz | |
syswrite() was still returning byte counts, not character counts.
p4raw-id: //depot/perl@13074
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 |