diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-07-19 11:26:40 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-07-19 11:26:40 +0000 |
| commit | 720585718752a5c4b05924234d57f699a7ef7fb7 (patch) | |
| tree | 907035119d9de4ba17ceea1fb8bc5677242a61d3 /perl.c | |
| parent | dbb0c49234c00168f22899f61ea5ba924e72bb60 (diff) | |
| download | perl-720585718752a5c4b05924234d57f699a7ef7fb7.tar.gz | |
silence 'unused var' compiler warning
p4raw-id: //depot/perl@31634
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -4295,7 +4295,9 @@ FIX YOUR KERNEL, OR PUT A C WRAPPER AROUND THIS SCRIPT!\n"); PERL_UNUSED_ARG(fdscript); PERL_UNUSED_ARG(suidscript); if (PL_euid != PL_uid || PL_egid != PL_gid) { /* (suidperl doesn't exist, in fact) */ -#ifndef SETUID_SCRIPTS_ARE_SECURE_NOW +#ifdef SETUID_SCRIPTS_ARE_SECURE_NOW + PERL_UNUSED_ARG(rsfp); +#else 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) || |