Change 31634 by [EMAIL PROTECTED] on 2007/07/19 11:26:40
silence 'unused var' compiler warning
Affected files ...
... //depot/perl/perl.c#815 edit
Differences ...
==== //depot/perl/perl.c#815 (text) ====
Index: perl/perl.c
--- perl/perl.c#814~31404~ 2007-06-17 07:48:11.000000000 -0700
+++ perl/perl.c 2007-07-19 04:26:40.000000000 -0700
@@ -4295,7 +4295,9 @@
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)
||
End of Patch.
