Change 23906 by [EMAIL PROTECTED] on 2005/01/31 10:53:14
Really fix the bug [perl #33990].
NB. -DIAMSUID is only set to compile sperl.o.
Affected files ...
... //depot/perl/perlio.c#256 edit
Differences ...
==== //depot/perl/perlio.c#256 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#255~23904~ Mon Jan 31 00:35:51 2005
+++ perl/perlio.c Mon Jan 31 02:53:14 2005
@@ -450,12 +450,11 @@
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 @@
#endif
}
va_end(ap);
-#endif /* IAMSUID */
}
/*--------------------------------------------------------------------------------------*/
End of Patch.
