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 (file)
--- 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 */
 }
 
 /*--------------------------------------------------------------------------------------*/