Fix Cwd::getcwd() not being tainted, as noticed

by Schwern.

p4raw-id: //depot/perl@11873

1 files changed, 4 insertions, 0 deletions

diff --git a/util.c b/util.c
index 5c5da23cb1..002690902c 100644
--- a/util.c
+++ b/util.c
@@ -3719,6 +3719,10 @@ Perl_getcwd_sv(pTHX_ register SV *sv)
 {
 #ifndef PERL_MICRO
 
+#ifndef INCOMPLETE_TAINTS
+    SvTAINTED_on(sv);
+#endif
+
 #ifdef HAS_GETCWD
     {
 	char buf[MAXPATHLEN];