diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 20:55:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 20:55:08 +0000 |
| commit | 6be3b590ae105cfca64b02268fad079cb73ed214 (patch) | |
| tree | 1799e7d87f66cd3a294cd4d9c16fef284d01f228 /cygwin/cygwin.c | |
| parent | 5dec6e322043a8c2821e3800767955c8c7877536 (diff) | |
| download | perl-6be3b590ae105cfca64b02268fad079cb73ed214.tar.gz | |
Taint the getcwd() result also in Cygwin.
(TODO: which other platforms need the same thing?)
p4raw-id: //depot/perl@12591
Diffstat (limited to 'cygwin/cygwin.c')
| -rw-r--r-- | cygwin/cygwin.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c index 6a717130bc..0b4dcc8ef7 100644 --- a/cygwin/cygwin.c +++ b/cygwin/cygwin.c @@ -147,6 +147,9 @@ XS(Cygwin_cwd) if((cwd = getcwd(NULL, -1))) { ST(0) = sv_2mortal(newSVpv(cwd, 0)); safesysfree(cwd); +#ifndef INCOMPLETE_TAINTS + SvTAINTED_on(ST(0)); +#endif XSRETURN(1); } XSRETURN_UNDEF; |