Change 12591 by jhi@alpha on 2001/10/22 20:55:08
Taint the getcwd() result also in Cygwin.
(TODO: which other platforms need the same thing?)
Affected files ...
... //depot/perl/cygwin/cygwin.c#6 edit
Differences ...
==== //depot/perl/cygwin/cygwin.c#6 (text) ====
Index: perl/cygwin/cygwin.c
--- perl/cygwin/cygwin.c.~1~ Mon Oct 22 15:00:05 2001
+++ perl/cygwin/cygwin.c Mon Oct 22 15:00:05 2001
@@ -147,6 +147,9 @@
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;
End of Patch.
