OS/2 build

[p5sagit/p5-mst-13.2.git] / epoc / epoc.c

diff --git a/epoc/epoc.c b/epoc/epoc.c
index 6652ef0..1348109 100644 (file)
--- a/epoc/epoc.c
+++ b/epoc/epoc.c
@@ -99,7 +99,7 @@ __fixunsdfsi (a)
 
 int 
 do_spawn( char *cmd) {
-    dTHXo;
+    dTHX;
     char *argv0, *ptr;
     char *cmdptr = cmd;
     int ret;
@@ -125,7 +125,7 @@ do_spawn( char *cmd) {
 int
 do_aspawn ( void *vreally, void **vmark, void **vsp) {
 
-    dTHXo;
+    dTHX;
 
     SV *really = (SV*)vreally;
     SV **mark = (SV**)vmark;
@@ -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);
@@ -232,7 +235,7 @@ XS(epoc_getcwd)   /* more or less stolen from win32.c */
 void
 Perl_init_os_extras(void)
 { 
-  dTHXo;
+  dTHX;
   char *file = __FILE__;
   newXS("EPOC::getcwd", epoc_getcwd, file);
 }