X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=epoc%2Fepoc.c;h=134810937145c6c31cb9d22dd3b50f7e44730a73;hb=dfcfdb64cf0cdaf3745a1082d9b4a94480414c62;hp=e5496eafd0e1fd7ec8e9563787a54d69fd6fb8ec;hpb=acfe0abcedaf592fb4b9cb69ce3468308ae99d91;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/epoc/epoc.c b/epoc/epoc.c
index e5496ea..1348109 100644
--- 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);