diff options
author | Andy Lester <andy@petdance.com> | 2006-02-07 10:36:56 -0600 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2006-02-08 03:23:27 +0000 |
commit | 294a48e93682c45d53fd3e8adb7bbdd7068cbb1d (patch) | |
tree | a6878848cea71feb8b3cc4a56a0c3ba4ea7238b0 /perl.c | |
parent | 78f158d1419ac33753582a090b1b89196bbfe093 (diff) | |
download | perl-294a48e93682c45d53fd3e8adb7bbdd7068cbb1d.tar.gz |
Handle unused args
Message-ID: <20060207223656.GA5177@petdance.com>
p4raw-id: //depot/perl@27129
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -4196,6 +4196,8 @@ FIX YOUR KERNEL, OR PUT A C WRAPPER AROUND THIS SCRIPT!\n"); Perl_croak(aTHX_ "Can't do setuid (suidperl cannot exec perl)\n"); #endif /* IAMSUID */ #else /* !DOSUID */ + 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 PerlLIO_fstat(PerlIO_fileno(PL_rsfp),&PL_statbuf); /* may be either wrapped or real suid */ @@ -4210,8 +4212,8 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); /* not set-id, must be wrapped */ } #endif /* DOSUID */ - (void)validarg; - (void)scriptname; + PERL_UNUSED_ARG(validarg); + PERL_UNUSED_ARG(scriptname); } STATIC void |