diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-04-13 10:28:31 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-04-13 10:28:31 +0000 |
| commit | a2e578dad2f237dd09854deb3a557d2eeeb56a83 (patch) | |
| tree | 058b54bd9bd3f59d678063615803e3299e0bdbb4 /perl.c | |
| parent | 4d567a5610bb49ab2426b6b49b0c4f99be2c0aa2 (diff) | |
| download | perl-a2e578dad2f237dd09854deb3a557d2eeeb56a83.tar.gz | |
Add two missing dVAR's.
p4raw-id: //depot/perl@33671
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -4245,6 +4245,8 @@ S_validate_suid(pTHX_ PerlIO *rsfp) if (PL_euid != PL_uid || PL_egid != PL_gid) { /* (suidperl doesn't exist, in fact) */ # ifndef SETUID_SCRIPTS_ARE_SECURE_NOW + dVAR; + PerlLIO_fstat(PerlIO_fileno(rsfp),&PL_statbuf); /* may be either wrapped or real suid */ if ((PL_euid != PL_uid && PL_euid == PL_statbuf.st_uid && PL_statbuf.st_mode & S_ISUID) || |