From cb044765cac302a6d2f050170f3c803917d5eb06 Mon Sep 17 00:00:00 2001 From: Anton Berezin Date: Fri, 24 Jun 2005 09:17:06 +0000 Subject: Upgrade to 5.8.7. In addition: MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit - add perl-after-upgrade utility to move around dependent packages - fix $0 expansion in use.perl [1] - enable threaded perl on amd64 [2] - always compile perl with -pthread [3] - fix errno issue in SDBM_File [4] - add support for // and err (defined-or) [5] - add WITH_DEBUGGING option [6] - fix suidperl symlink [7] - fix several small bugs in use.perl - print possible WITH_XXX flags (no OPTIONS support yet) [1] Submitted by: erwin, Niël Dogger [2] Nudged by: Mike Schroll [3] Nudged by: skv [4] perl bug #35938 [5] Obtained from: H.Merijn Brand [6] PR: 78811, submitted by: skv [7] PR: 80069, submitted by: Sergey N. Voronkov A different solution was actually implemented. --- lang/perl5.12/files/patch-perlio.c | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100644 lang/perl5.12/files/patch-perlio.c (limited to 'lang/perl5.12/files/patch-perlio.c') diff --git a/lang/perl5.12/files/patch-perlio.c b/lang/perl5.12/files/patch-perlio.c deleted file mode 100644 index c680381d2123..000000000000 --- a/lang/perl5.12/files/patch-perlio.c +++ /dev/null @@ -1,22 +0,0 @@ -$FreeBSD$ - ---- perlio.c.orig Wed Feb 2 16:45:24 2005 -+++ perlio.c Wed Feb 2 16:45:34 2005 -@@ -454,7 +454,7 @@ PerlIO_debug(const char *fmt, ...) - 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 @@ PerlIO_debug(const char *fmt, ...) - 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)); -- cgit v1.2.3