diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-25 22:58:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-25 22:58:44 +0000 |
| commit | 2aff344965c2e6cdc85666265175844cd3146435 (patch) | |
| tree | d8a09b6601eb4cda8ea2e4b6a4f77c357d41b317 /epoc | |
| parent | e6f4409120d7729da3b4de1e90f3e39e9c41b8f2 (diff) | |
| download | perl-2aff344965c2e6cdc85666265175844cd3146435.tar.gz | |
Take the taint brush to the getcwds.
p4raw-id: //depot/perl@13276
Diffstat (limited to 'epoc')
| -rw-r--r-- | epoc/epoc.c | 3 |
1 files changed, 3 insertions, 0 deletions
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); |