From 720585718752a5c4b05924234d57f699a7ef7fb7 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Thu, 19 Jul 2007 11:26:40 +0000
Subject: [PATCH] silence 'unused var' compiler warning

p4raw-id: //depot/perl@31634
---
 perl.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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)
 	    ||
-- 
2.7.4