Taint shmread().

p4raw-id: //depot/cfgperl@5811

1 files changed, 4 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index e22902f23a..0247cb962e 100644
--- a/doio.c
+++ b/doio.c
@@ -1994,6 +1994,10 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp)
 	SvCUR_set(mstr, msize);
 	*SvEND(mstr) = '\0';
 	SvSETMAGIC(mstr);
+#ifndef INCOMPLETE_TAINTS
+	/* who knows who has been playing with this shared memory? */
+	SvTAINTED_on(mstr);
+#endif
     }
     else {
 	I32 n;