[packages/perl.git] / perl_586-sperl-CAN-2005-0155.patch

Index: perlio.c
===================================================================
--- perlio.c	(revision 4342)
+++ perlio.c	(revision 4346)
@@ -454,7 +454,7 @@
     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);
@@ -471,7 +471,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));
Commit	Line	Data
175d1080	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));