perl_586-sperl-CAN-2005-0155.patch

   1 Index: perlio.c
   2 ===================================================================
   3 --- perlio.c    (revision 4342)
   4 +++ perlio.c    (revision 4346)
   5 @@ -454,7 +454,7 @@
   6      va_list ap;
   7      dSYS;
   8      va_start(ap, fmt);
   9 -    if (!dbg) {
  10 +    if (!dbg && !PL_tainting && PL_uid == PL_euid && PL_gid == PL_egid) {
  11         char *s = PerlEnv_getenv("PERLIO_DEBUG");
  12         if (s && *s)
  13             dbg = PerlLIO_open3(s, O_WRONLY | O_CREAT | O_APPEND, 0666);
  14 @@ -471,7 +471,7 @@
  15         s = CopFILE(PL_curcop);
  16         if (!s)
  17             s = "(none)";
  18 -       sprintf(buffer, "%s:%" IVdf " ", s, (IV) CopLINE(PL_curcop));
  19 +       sprintf(buffer, "%.40s:%" IVdf " ", s, (IV) CopLINE(PL_curcop));
  20         len = strlen(buffer);
  21         vsprintf(buffer+len, fmt, ap);
  22         PerlLIO_write(dbg, buffer, strlen(buffer));