This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Taint the getcwd() result also in Cygwin.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 22 Oct 2001 20:55:08 +0000 (20:55 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 22 Oct 2001 20:55:08 +0000 (20:55 +0000)
(TODO: which other platforms need the same thing?)

p4raw-id: //depot/perl@12591

cygwin/cygwin.c

index 6a71713..0b4dcc8 100644 (file)
@@ -147,6 +147,9 @@ XS(Cygwin_cwd)
     if((cwd = getcwd(NULL, -1))) {
        ST(0) = sv_2mortal(newSVpv(cwd, 0));
        safesysfree(cwd);
+#ifndef INCOMPLETE_TAINTS
+       SvTAINTED_on(ST(0));
+#endif
        XSRETURN(1);
     }
     XSRETURN_UNDEF;