Change 23904: Avoid a buffer overflow with threads and PERLIO_DEBUG

[Rafael Garcia-Suarez]

Change 23904 by [EMAIL PROTECTED] on 2005/01/31 08:35:51

        Avoid a buffer overflow with threads and PERLIO_DEBUG

Affected files ...

... //depot/perl/perlio.c#255 edit

Differences ...

==== //depot/perl/perlio.c#255 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#254~23903~    Mon Jan 31 00:19:10 2005
+++ perl/perlio.c       Mon Jan 31 00:35:51 2005
@@ -472,7 +472,7 @@
        s = CopFILE(PL_curcop);
        if (!s)
            s = "(none)";
-       sprintf(buffer, "%s:%" IVdf " ", s, (IV) CopLINE(PL_curcop));
+       sprintf(buffer, "%.40s:%" IVdf " ", s, (IV) CopLINE(PL_curcop));
        len = strlen(buffer);
        vsprintf(buffer+len, fmt, ap);
        PerlLIO_write(dbg, buffer, strlen(buffer));
End of Patch.