1 files changed, 2 insertions, 0 deletions
diff --git a/perlio.c b/perlio.c
index 19c05cb9e4..19b842e45a 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 */
 }
 
 /*--------------------------------------------------------------------------------------*/