OS/2 build

[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);