Blame perl-5.8.5-CAN-2005-0155+0156.patch
|
|
fb212f2 |
Index: perlio.c
|
|
|
fb212f2 |
===================================================================
|
|
|
fb212f2 |
--- perlio.c (revision 4342)
|
|
|
fb212f2 |
+++ perlio.c (revision 4346)
|
|
|
fb212f2 |
@@ -454,7 +454,7 @@
|
|
|
fb212f2 |
va_list ap;
|
|
|
fb212f2 |
dSYS;
|
|
|
fb212f2 |
va_start(ap, fmt);
|
|
|
fb212f2 |
- if (!dbg) {
|
|
|
fb212f2 |
+ if (!dbg && !PL_tainting && PL_uid == PL_euid && PL_gid == PL_egid) {
|
|
|
fb212f2 |
char *s = PerlEnv_getenv("PERLIO_DEBUG");
|
|
|
fb212f2 |
if (s && *s)
|
|
|
fb212f2 |
dbg = PerlLIO_open3(s, O_WRONLY | O_CREAT | O_APPEND, 0666);
|
|
|
fb212f2 |
@@ -471,7 +471,7 @@
|
|
|
fb212f2 |
s = CopFILE(PL_curcop);
|
|
|
fb212f2 |
if (!s)
|
|
|
fb212f2 |
s = "(none)";
|
|
|
fb212f2 |
- sprintf(buffer, "%s:%" IVdf " ", s, (IV) CopLINE(PL_curcop));
|
|
|
fb212f2 |
+ sprintf(buffer, "%.40s:%" IVdf " ", s, (IV) CopLINE(PL_curcop));
|
|
|
fb212f2 |
len = strlen(buffer);
|
|
|
fb212f2 |
vsprintf(buffer+len, fmt, ap);
|
|
|
fb212f2 |
PerlLIO_write(dbg, buffer, strlen(buffer));
|