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]
/
epoc
/
epoc.c
diff --git
a/epoc/epoc.c
b/epoc/epoc.c
index
e5496ea
..
1348109
100644
(file)
--- a/
epoc/epoc.c
+++ b/
epoc/epoc.c
@@
-222,6
+222,9
@@
XS(epoc_getcwd) /* more or less stolen from win32.c */
EXTEND(SP,1);
SvPOK_on(sv);
ST(0) = sv;
+#ifndef INCOMPLETE_TAINTS
+ SvTAINTED_on(ST(0));
+#endif
XSRETURN(1);
}
free( buffer);