From c7aa74dbaa4b492cd769ff4e30c7ec1984ed7502 Mon Sep 17 00:00:00 2001
From: wiz <wiz@pkgsrc.org>
Date: Mon, 15 Oct 2012 13:14:26 +0000
Subject: 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
---
 www/ap-perl/distinfo                               |  3 ++-
 .../patches/patch-src_modules_perl_perl__util.c    | 23 ++++++++++++++++++++++
 2 files changed, 25 insertions(+), 1 deletion(-)
 create mode 100644 www/ap-perl/patches/patch-src_modules_perl_perl__util.c

(limited to 'www')

diff --git a/www/ap-perl/distinfo b/www/ap-perl/distinfo
index 97054474263..68c5d03a68e 100644
--- a/www/ap-perl/distinfo
+++ b/www/ap-perl/distinfo
@@ -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-ab) = 18b02747ae4b9ab17ce252cf003bf9fd7e4b2560
 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 --git a/www/ap-perl/patches/patch-src_modules_perl_perl__util.c b/www/ap-perl/patches/patch-src_modules_perl_perl__util.c
new file mode 100644
index 00000000000..4f267561d4d
--- /dev/null
+++ b/www/ap-perl/patches/patch-src_modules_perl_perl__util.c
@@ -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)
-- 
cgit v1.2.3