From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
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 */
 }
 
 /*--------------------------------------------------------------------------------------*/