diff options
author | Chip Salzenberg <chip@pobox.com> | 2012-07-11 00:05:19 -0700 |
---|---|---|
committer | Chip Salzenberg <chip@pobox.com> | 2012-07-11 00:05:19 -0700 |
commit | d5f981bb7a70dd7aff3d22cbde070ee4e524b128 (patch) | |
tree | aafe3bee95c2a85840d3b5b5d0716f63e566fa33 /pp_sys.c | |
parent | 6bc2995bd36b76f7e8a50bf07f2f8a33c45c68de (diff) | |
download | perl-d5f981bb7a70dd7aff3d22cbde070ee4e524b128.tar.gz |
use right type for offset in sysread() or syswrite()
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1711,7 +1711,7 @@ PP(pp_sysread) } if (DO_UTF8(bufsv)) { /* convert offset-as-chars to offset-as-bytes */ - if (offset >= (int)blen) + if (offset >= (SSize_t)blen) offset += SvCUR(bufsv) - blen; else offset = utf8_hop((U8 *)buffer,offset) - (U8 *) buffer; |