*ctl: ensure the ARG parameter's UTF-8 flag is reset

If the SV supplied as ARG had the SVf_UTF8 flag on it would be left
on, which would effectively corrupt the returned buffer.

Only tested with shmctl(), since the other *ctl() functions only have
more complex structures with indeterminate types that would require
more effort to test.

1 files changed, 1 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index 2bffeea079..11c9ed1a46 100644
--- a/doio.c
+++ b/doio.c
@@ -3058,6 +3058,7 @@ Perl_do_ipcctl(pTHX_ I32 optype, SV **mark, SV **sp)
     if (getinfo && ret >= 0) {
 	SvCUR_set(astr, infosize);
 	*SvEND(astr) = '\0';
+        SvUTF8_off(astr);
 	SvSETMAGIC(astr);
     }
     return ret;