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 (file)
--- 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;