From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 31 Jan 2005 08:19:10 +0000 (+0000)
Subject: Don't write to $PERLIO_DEBUG when setuid ([perl #33990])
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ca5a72b6dc61d8ee66baa383d765ea96f29663b;p=p5sagit%2Fp5-mst-13.2.git

Don't write to $PERLIO_DEBUG when setuid ([perl #33990])

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

diff --git a/perlio.c b/perlio.c
index 19c05cb..19b842e 100644
--- a/perlio.c
+++ b/perlio.c
@@ -450,6 +450,7 @@ void PerlIO_debug(const char *fmt, ...)
 void
 PerlIO_debug(const char *fmt, ...)
 {
+#ifdef IAMSUID
     static int dbg = 0;
     va_list ap;
     dSYS;
@@ -492,6 +493,7 @@ PerlIO_debug(const char *fmt, ...)
 #endif
     }
     va_end(ap);
+#endif /* IAMSUID */
 }
 
 /*--------------------------------------------------------------------------------------*/