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

[Rafael Garcia-Suarez]

Change 23903 by [EMAIL PROTECTED] on 2005/01/31 08:19:10

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

Affected files ...

... //depot/perl/perlio.c#254 edit

Differences ...

==== //depot/perl/perlio.c#254 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#253~23844~    Fri Jan 21 05:49:46 2005
+++ perl/perlio.c       Mon Jan 31 00:19:10 2005
@@ -450,6 +450,7 @@
 void
 PerlIO_debug(const char *fmt, ...)
 {
+#ifdef IAMSUID
     static int dbg = 0;
     va_list ap;
     dSYS;
@@ -492,6 +493,7 @@
 #endif
     }
     va_end(ap);
+#endif /* IAMSUID */
 }
 
 
/*--------------------------------------------------------------------------------------*/
End of Patch.