From: Rafael Garcia-Suarez Date: Mon, 31 Jan 2005 10:53:14 +0000 (+0000) Subject: Really fix the bug [perl #33990]. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ffdc6b0149239c63d2af653ea8fccae807d7d3be;p=p5sagit%2Fp5-mst-13.2.git Really fix the bug [perl #33990]. NB. -DIAMSUID is only set to compile sperl.o. p4raw-id: //depot/perl@23906 --- diff --git a/perlio.c b/perlio.c index 85bc755..768b8eb 100644 --- a/perlio.c +++ b/perlio.c @@ -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 */ } /*--------------------------------------------------------------------------------------*/