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 | ebdd4fa0c0f72122a0aef85c22b8fa4d49b01b78 (patch) | |
| tree | d8a09b6601eb4cda8ea2e4b6a4f77c357d41b317 /djgpp/djgpp.c | |
| parent | dfb6a7ef48035acda2858c343a48352b20f2b43f (diff) | |
| download | perl-ebdd4fa0c0f72122a0aef85c22b8fa4d49b01b78.tar.gz | |
Take the taint brush to the getcwds.
p4raw-id: //depot/perl@13276
Diffstat (limited to 'djgpp/djgpp.c')
| -rw-r--r-- | djgpp/djgpp.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/djgpp/djgpp.c b/djgpp/djgpp.c index f235421ae3..73573c37ea 100644 --- a/djgpp/djgpp.c +++ b/djgpp/djgpp.c @@ -367,6 +367,9 @@ XS(dos_GetCwd) ST(0)=sv_newmortal (); if (getcwd (tmp,PATH_MAX+1)!=NULL) sv_setpv ((SV*)ST(0),tmp); +#ifndef INCOMPLETE_TAINTS + SvTAINTED_on(ST(0)); +#endif } XSRETURN (1); } |