Taint msgrcv() messages; general SysV IPC cleanup.

p4raw-id: //depot/cfgperl@5812

1 files changed, 4 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index 0247cb962e..0121633c84 100644
--- a/doio.c
+++ b/doio.c
@@ -1926,6 +1926,10 @@ Perl_do_msgrcv(pTHX_ SV **mark, SV **sp)
     if (ret >= 0) {
 	SvCUR_set(mstr, sizeof(long)+ret);
 	*SvEND(mstr) = '\0';
+#ifndef INCOMPLETE_TAINTS
+	/* who knows who has been playing with this message? */
+	SvTAINTED_on(mstr);
+#endif
     }
     return ret;
 #else