msgrcv: properly downgrade the receive buffer

If the receive buffer started with SVf_UTF8 on, the received message
SV would stay flagged, corrupting the result.

1 files changed, 1 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index aa6c35bd15..df6e62c0f3 100644
--- a/doio.c
+++ b/doio.c
@@ -3141,6 +3141,7 @@ Perl_do_msgrcv(pTHX_ SV **mark, SV **sp)
     }
     if (ret >= 0) {
 	SvCUR_set(mstr, sizeof(long)+ret);
+        SvPOK_only(mstr);
 	*SvEND(mstr) = '\0';
 	/* who knows who has been playing with this message? */
 	SvTAINTED_on(mstr);