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

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