added tainting for getcwd for Win32

[perl5.git] / win32 / win32.c

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);
 
        sv_setpv(sv, ptr);
        PerlEnv_free_childdir(ptr);
 

+#ifndef INCOMPLETE_TAINTS
+       SvTAINTED_on(sv);
+#endif
+

        EXTEND(SP,1);
        SvPOK_on(sv);
        ST(0) = sv;
        EXTEND(SP,1);
        SvPOK_on(sv);
        ST(0) = sv;