summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2006-02-07 10:36:56 -0600
committerSteve Peters <steve@fisharerojo.org>2006-02-08 03:23:27 +0000
commit294a48e93682c45d53fd3e8adb7bbdd7068cbb1d (patch)
treea6878848cea71feb8b3cc4a56a0c3ba4ea7238b0 /perl.c
parent78f158d1419ac33753582a090b1b89196bbfe093 (diff)
downloadperl-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.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index c9058bb4f8..3a17b4882a 100644
--- a/perl.c
+++ b/perl.c
@@ -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