This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove commented out declaration from S_validate_suid()
authorNicholas Clark <nick@ccl4.org>
Fri, 18 Jan 2008 09:27:13 +0000 (09:27 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 18 Jan 2008 09:27:13 +0000 (09:27 +0000)
p4raw-id: //depot/perl@32996

perl.c

diff --git a/perl.c b/perl.c
index d34f3e8..17a5eb0 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -3767,9 +3767,6 @@ S_validate_suid(pTHX_ const char *validarg, const char *scriptname,
                int fdscript, int suidscript, SV *linestr_sv, PerlIO *rsfp)
 {
     dVAR;
-#ifdef IAMSUID
-    /* int which; */
-#endif /* IAMSUID */
 
     /* do we need to emulate setuid on scripts? */