diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-03 17:12:33 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-03 17:12:33 +0000 |
| commit | 968277801164b16eb55f9f8fd3162dc3b6226110 (patch) | |
| tree | 9e3909d2149d62cac469cfb6d84bdfd4353dd19f /perl.c | |
| parent | 5d3fdfebb3d34f909dfbefe2c2cdf38bab171cf9 (diff) | |
| download | perl-968277801164b16eb55f9f8fd3162dc3b6226110.tar.gz | |
Remove last traces of "tokenbuf as temp buffer" and removed it
from struct thread. Added missing thr->Tfoo defines for statbuf
and timesbuf and removed unused Tbuf field.
p4raw-id: //depot/perl@106
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2205,6 +2205,7 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); #else /* !DOSUID */ if (euid != uid || egid != gid) { /* (suidperl doesn't exist, in fact) */ #ifndef SETUID_SCRIPTS_ARE_SECURE_NOW + dTHR; Fstat(PerlIO_fileno(rsfp),&statbuf); /* may be either wrapped or real suid */ if ((euid != uid && euid == statbuf.st_uid && statbuf.st_mode & S_ISUID) || |