[pkgsrc/trunk]: pkgsrc/www/ap-perl Fix build with perl-5.16.

[wiz <wiz%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/0c9eccbda1aa
branches:  trunk
changeset: 610004:0c9eccbda1aa
user:      wiz <wiz%pkgsrc.org@localhost>
date:      Mon Oct 15 13:14:26 2012 +0000

description:
Fix build with perl-5.16.

Remove uid code; similar to changes done to mod_perl-2.x, see
https://rt.cpan.org/Public/Bug/Display.html?id=77129

diffstat:

 www/ap-perl/distinfo                                    |   3 +-
 www/ap-perl/patches/patch-src_modules_perl_perl__util.c |  23 +++++++++++++++++
 2 files changed, 25 insertions(+), 1 deletions(-)

diffs (41 lines):

diff -r 066cfb03bcce -r 0c9eccbda1aa www/ap-perl/distinfo
--- a/www/ap-perl/distinfo      Mon Oct 15 13:05:54 2012 +0000
+++ b/www/ap-perl/distinfo      Mon Oct 15 13:14:26 2012 +0000
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.15 2012/10/08 18:32:50 marino Exp $
+$NetBSD: distinfo,v 1.16 2012/10/15 13:14:26 wiz Exp $
 
 SHA1 (mod_perl-1.31.tar.gz) = 5f6eadf2b0fc24ed4376d7708226391baa14c73f
 RMD160 (mod_perl-1.31.tar.gz) = 296bd5e95018c313bab84ae7b21ae9f64bd4a394
@@ -9,3 +9,4 @@
 SHA1 (patch-src_modules_perl_Log.xs) = 60c7473fac429a4aeeb60c8670dcdcb0f9cb80be
 SHA1 (patch-src_modules_perl_mod__perl.c) = 3c2e82fb91d4a470e7f018a92b330eac4c7b0630
 SHA1 (patch-src_modules_perl_perl__config.c) = daa30ae219bce44c0763ec84f64cef79989651a4
+SHA1 (patch-src_modules_perl_perl__util.c) = 84d02d62c2dfc0b7765acd36fd3f69da92e92413
diff -r 066cfb03bcce -r 0c9eccbda1aa www/ap-perl/patches/patch-src_modules_perl_perl__util.c
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/www/ap-perl/patches/patch-src_modules_perl_perl__util.c   Mon Oct 15 13:14:26 2012 +0000
@@ -0,0 +1,23 @@
+$NetBSD: patch-src_modules_perl_perl__util.c,v 1.3 2012/10/15 13:14:26 wiz Exp $
+
+Remove uid code; similar to changes done to mod_perl-2.x, see
+https://rt.cpan.org/Public/Bug/Display.html?id=77129
+
+--- src/modules/perl/perl_util.c.orig  2007-12-03 07:19:59.000000000 +0000
++++ src/modules/perl/perl_util.c
+@@ -669,15 +669,6 @@ void mod_perl_init_ids(void)  /* $$, $>,
+ {
+     if(set_ids++) return;
+     sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32)getpid());
+-#ifndef WIN32
+-    uid  = (int)getuid(); 
+-    euid = (int)geteuid(); 
+-    gid  = (int)getgid(); 
+-    egid = (int)getegid(); 
+-    MP_TRACE_g(fprintf(stderr, 
+-                   "perl_init_ids: uid=%d, euid=%d, gid=%d, egid=%d\n",
+-                   uid, euid, gid, egid));
+-#endif
+ }
+ 
+ int perl_eval_ok(server_rec *s)