diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-31 10:53:14 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-31 10:53:14 +0000 |
| commit | ffdc6b0149239c63d2af653ea8fccae807d7d3be (patch) | |
| tree | 209189e15de82d7bcd816eb85843df285f59d74f /perlio.c | |
| parent | 28849697770a958b354afa3e546276a6f15f1d28 (diff) | |
| download | perl-ffdc6b0149239c63d2af653ea8fccae807d7d3be.tar.gz | |
Really fix the bug [perl #33990].
NB. -DIAMSUID is only set to compile sperl.o.
p4raw-id: //depot/perl@23906
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -450,12 +450,11 @@ void PerlIO_debug(const char *fmt, ...) void PerlIO_debug(const char *fmt, ...) { -#ifdef IAMSUID static int dbg = 0; va_list ap; dSYS; va_start(ap, fmt); - if (!dbg) { + if (!dbg && !PL_tainting && PL_uid == PL_euid && PL_gid == PL_egid) { char *s = PerlEnv_getenv("PERLIO_DEBUG"); if (s && *s) dbg = PerlLIO_open3(s, O_WRONLY | O_CREAT | O_APPEND, 0666); @@ -493,7 +492,6 @@ PerlIO_debug(const char *fmt, ...) #endif } va_end(ap); -#endif /* IAMSUID */ } /*--------------------------------------------------------------------------------------*/ |