X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/4d1ff10ffec86208b0da135b87c76b89e61c866e..b38b066d1cf1b115dd83bdf7e4355e8870134fb9:/util.c

diff --git a/util.c b/util.c
index 5c5da23..0026909 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];