projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5dec6e3
)
Taint the getcwd() result also in Cygwin.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 22 Oct 2001 20:55:08 +0000
(20:55 +0000)
committer
Jarkko 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
patch
|
blob
|
history
diff --git
a/cygwin/cygwin.c
b/cygwin/cygwin.c
index
6a71713
..
0b4dcc8
100644
(file)
--- a/
cygwin/cygwin.c
+++ b/
cygwin/cygwin.c
@@
-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;