diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-05-16 21:09:57 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-05-16 21:09:57 +0000 |
| commit | 248785eb434790c6e30dbaca63ce310c33712c18 (patch) | |
| tree | 78e86449aa5e9701176455e16170546dfbc44f67 /ext/Cwd/Cwd.xs | |
| parent | a2147dfeb7f10f2a9fc88c101af1f63b2ab8f9f9 (diff) | |
| download | perl-248785eb434790c6e30dbaca63ce310c33712c18.tar.gz | |
Make Cwd::fastcwd() return a tainted value.
Add regression tests for taint-safety of the *cwd()
functions.
p4raw-id: //depot/perl@16635
Diffstat (limited to 'ext/Cwd/Cwd.xs')
| -rw-r--r-- | ext/Cwd/Cwd.xs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs index f53f6ee19e..3f7b93b231 100644 --- a/ext/Cwd/Cwd.xs +++ b/ext/Cwd/Cwd.xs @@ -222,6 +222,9 @@ PPCODE: dXSTARG; getcwd_sv(TARG); XSprePUSH; PUSHTARG; +#ifndef INCOMPLETE_TAINTS + SvTAINTED_on(TARG); +#endif } void |