From: Dave Mitchell <davem@fdisolutions.com>
Date: Thu, 19 Jul 2007 11:26:40 +0000 (+0000)
Subject: silence 'unused var' compiler warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=720585718752a5c4b05924234d57f699a7ef7fb7;p=p5sagit%2Fp5-mst-13.2.git

silence 'unused var' compiler warning

p4raw-id: //depot/perl@31634
---

diff --git a/perl.c b/perl.c
index 3542162..5eea3f9 100644
--- a/perl.c
+++ b/perl.c
@@ -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)
 	    ||