diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-31 08:19:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-31 08:19:10 +0000 |
| commit | 6ca5a72b6dc61d8ee66baa383d765ea96f29663b (patch) | |
| tree | 8462aea8798a8a10267c4a457e9a3ee37b83b196 /perlio.c | |
| parent | ad4673e589e7f7480399659499acd36d1af9a0f3 (diff) | |
| download | perl-6ca5a72b6dc61d8ee66baa383d765ea96f29663b.tar.gz | |
Don't write to $PERLIO_DEBUG when setuid ([perl #33990])
p4raw-id: //depot/perl@23903
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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 */ } /*--------------------------------------------------------------------------------------*/ |