|
Lines 454-460
Link Here
|
| 454 |
va_list ap; |
454 |
va_list ap; |
| 455 |
dSYS; |
455 |
dSYS; |
| 456 |
va_start(ap, fmt); |
456 |
va_start(ap, fmt); |
| 457 |
if (!dbg) { |
457 |
if (!dbg && !PL_tainting && PL_uid == PL_euid && PL_gid == PL_egid) { |
| 458 |
char *s = PerlEnv_getenv("PERLIO_DEBUG"); |
458 |
char *s = PerlEnv_getenv("PERLIO_DEBUG"); |
| 459 |
if (s && *s) |
459 |
if (s && *s) |
| 460 |
dbg = PerlLIO_open3(s, O_WRONLY | O_CREAT | O_APPEND, 0666); |
460 |
dbg = PerlLIO_open3(s, O_WRONLY | O_CREAT | O_APPEND, 0666); |
|
Lines 471-477
Link Here
|
| 471 |
s = CopFILE(PL_curcop); |
471 |
s = CopFILE(PL_curcop); |
| 472 |
if (!s) |
472 |
if (!s) |
| 473 |
s = "(none)"; |
473 |
s = "(none)"; |
| 474 |
sprintf(buffer, "%s:%" IVdf " ", s, (IV) CopLINE(PL_curcop)); |
474 |
sprintf(buffer, "%.40s:%" IVdf " ", s, (IV) CopLINE(PL_curcop)); |
| 475 |
len = strlen(buffer); |
475 |
len = strlen(buffer); |
| 476 |
vsprintf(buffer+len, fmt, ap); |
476 |
vsprintf(buffer+len, fmt, ap); |
| 477 |
PerlLIO_write(dbg, buffer, strlen(buffer)); |
477 |
PerlLIO_write(dbg, buffer, strlen(buffer)); |
