diff options
author | Tony Cook <tony@develop-help.com> | 2020-11-17 14:20:41 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2020-11-24 13:35:21 +1100 |
commit | 7274dea4b81e86585fcc4c4377c1a9918de3f4af (patch) | |
tree | dc1d088126c21d5d2903dc6ebed85d1758a5422e /doio.c | |
parent | 18b3ff2673bbc5f9b37c6d9b6c912f882537ddc2 (diff) | |
download | perl-7274dea4b81e86585fcc4c4377c1a9918de3f4af.tar.gz |
*ctl: test we handle the buffer as bytes
Previously this had the "unicode bug", an upgraded string would
be treated as the encoding of that string, rather than the raw
bytes.
Diffstat (limited to 'doio.c')
-rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2999,13 +2999,13 @@ Perl_do_ipcctl(pTHX_ I32 optype, SV **mark, SV **sp) { if (getinfo) { - SvPV_force_nolen(astr); + SvPV_force_nolen(astr); a = SvGROW(astr, infosize+1); } else { STRLEN len; - a = SvPV(astr, len); + a = SvPVbyte(astr, len); if (len != infosize) Perl_croak(aTHX_ "Bad arg length for %s, is %lu, should be %ld", PL_op_desc[optype], |