diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-19 01:22:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-19 01:22:47 +0000 |
| commit | 2959b6e3384ea619841b1f9556846dd2755caf04 (patch) | |
| tree | 2d04c06f1d270b5ae604b56df892ea674b740be4 /pp_sys.c | |
| parent | 8341b96b912f641681f822ceb6ec0b8b19720375 (diff) | |
| download | perl-2959b6e3384ea619841b1f9556846dd2755caf04.tar.gz | |
Taint also the passwd field of the getpw*().
p4raw-id: //depot/cfgperl@5810
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -4835,6 +4835,10 @@ PP(pp_gpwent) sv_setpv(sv, pwent->pw_passwd); # endif #endif +#ifndef INCOMPLETE_TAINTS + /* passwd is tainted because user himself can diddle with it. */ + SvTAINTED_on(sv); +#endif PUSHs(sv = sv_mortalcopy(&PL_sv_no)); #if Uid_t_sign <= 0 |