diff options
| -rw-r--r-- | djgpp/djgpp.c | 3 | ||||
| -rw-r--r-- | epoc/epoc.c | 3 | ||||
| -rw-r--r-- | os2/os2.c | 3 | ||||
| -rw-r--r-- | wince/wince.c | 3 |
4 files changed, 12 insertions, 0 deletions
diff --git a/djgpp/djgpp.c b/djgpp/djgpp.c index f235421ae3..73573c37ea 100644 --- a/djgpp/djgpp.c +++ b/djgpp/djgpp.c @@ -367,6 +367,9 @@ XS(dos_GetCwd) ST(0)=sv_newmortal (); if (getcwd (tmp,PATH_MAX+1)!=NULL) sv_setpv ((SV*)ST(0),tmp); +#ifndef INCOMPLETE_TAINTS + SvTAINTED_on(ST(0)); +#endif } XSRETURN (1); } diff --git a/epoc/epoc.c b/epoc/epoc.c index e5496eafd0..1348109371 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); @@ -1977,6 +1977,9 @@ XS(XS_Cwd_sys_cwd) RETVAL = _getcwd2(p, MAXPATHLEN); ST(0) = sv_newmortal(); sv_setpv((SV*)ST(0), RETVAL); +#ifndef INCOMPLETE_TAINTS + SvTAINTED_on(ST(0)); +#endif } XSRETURN(1); } diff --git a/wince/wince.c b/wince/wince.c index c34928e250..c1375817b8 100644 --- a/wince/wince.c +++ b/wince/wince.c @@ -1248,6 +1248,9 @@ XS(w32_GetCwd) EXTEND(SP,1); SvPOK_on(sv); ST(0) = sv; +#ifndef INCOMPLETE_TAINTS + SvTAINTED_on(ST(0)); +#endif XSRETURN(1); } |