projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Take the taint brush to the getcwds.
[p5sagit/p5-mst-13.2.git]
/
os2
/
os2.c
diff --git
a/os2/os2.c
b/os2/os2.c
index
f104abd
..
39463e6
100644
(file)
--- a/
os2/os2.c
+++ b/
os2/os2.c
@@
-1977,6
+1977,9
@@
XS(XS_Cwd_sys_cwd)
RETVAL = _getcwd2(p, MAXPATHLEN);
ST(0) = sv_newmortal();
sv_setpv((SV*)ST(0), RETVAL);
+#ifndef INCOMPLETE_TAINTS
+ SvTAINTED_on(ST(0));
+#endif
}
XSRETURN(1);
}