diff options
| author | Nikola Knezevic <indy@tesla.rcub.bg.ac.yu> | 2001-09-18 20:06:44 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-18 22:54:21 +0000 |
| commit | 617e632eccd2fc9a2158b64c2153973730238df6 (patch) | |
| tree | f9c107322dca34e1438bc31250d4bb74f27c4ba3 /win32 | |
| parent | fbac1b852fcf3582c3f503bc8fc35f05fd8b3bd3 (diff) | |
| download | perl-617e632eccd2fc9a2158b64c2153973730238df6.tar.gz | |
added tainting for getcwd for Win32
Message-ID: <11018348611.20010918180644@tesla.rcub.bg.ac.yu>
p4raw-id: //depot/perl@12078
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index 905a987778..eacb248cf1 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -3612,6 +3612,10 @@ XS(w32_GetCwd) sv_setpv(sv, ptr); PerlEnv_free_childdir(ptr); +#ifndef INCOMPLETE_TAINTS + SvTAINTED_on(sv); +#endif + EXTEND(SP,1); SvPOK_on(sv); ST(0) = sv; |