This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
added tainting for getcwd for Win32
[perl5.git] / win32 / win32.c
index 905a987..eacb248 100644 (file)
@@ -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;