This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
added tainting for getcwd for Win32
authorNikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Tue, 18 Sep 2001 18:06:44 +0000 (20:06 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 18 Sep 2001 22:54:21 +0000 (22:54 +0000)
Message-ID: <11018348611.20010918180644@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@12078

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;