From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Tue, 18 Sep 2001 18:06:44 +0000 (+0200)
Subject: added tainting for getcwd for Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=617e632eccd2fc9a2158b64c2153973730238df6;p=p5sagit%2Fp5-mst-13.2.git

added tainting for getcwd for Win32
Message-ID: <11018348611.20010918180644@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@12078
---

diff --git a/win32/win32.c b/win32/win32.c
index 905a987..eacb248 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -3612,6 +3612,10 @@ XS(w32_GetCwd)
 	sv_setpv(sv, ptr);
 	PerlEnv_free_childdir(ptr);
 
+#ifndef INCOMPLETE_TAINTS
+	SvTAINTED_on(sv);
+#endif
+
 	EXTEND(SP,1);
 	SvPOK_on(sv);
 	ST(0) = sv;