diff options
author | Tony Cook <tony@develop-help.com> | 2020-11-18 15:01:13 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2020-11-24 13:35:21 +1100 |
commit | 0bcc92493f9da3a04237ac3c3281e41581b65192 (patch) | |
tree | e21a407da4668a25a8cde91005ff33576b77ff1f /doio.c | |
parent | 6987f4434e4dfee71506125954ee1ae41c46f1cb (diff) | |
download | perl-0bcc92493f9da3a04237ac3c3281e41581b65192.tar.gz |
shmwrite: treat the string as bytes
Diffstat (limited to 'doio.c')
-rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3251,7 +3251,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp) else { STRLEN len; - const char *mbuf = SvPV_const(mstr, len); + const char *mbuf = SvPVbyte(mstr, len); const I32 n = ((I32)len > msize) ? msize : (I32)len; Copy(mbuf, shm + mpos, n, char); if (n < msize) |