diff options
| author | wiz <wiz@pkgsrc.org> | 2012-10-15 13:14:26 +0000 |
|---|---|---|
| committer | wiz <wiz@pkgsrc.org> | 2012-10-15 13:14:26 +0000 |
| commit | c7aa74dbaa4b492cd769ff4e30c7ec1984ed7502 (patch) | |
| tree | 136db54bcef849e4db79f86db293c0dbf929db88 /www | |
| parent | f2f8e567ba172017a8af98b78cc8f238d1316f61 (diff) | |
| download | pkgsrc-c7aa74dbaa4b492cd769ff4e30c7ec1984ed7502.tar.gz | |
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 (limited to 'www')
| -rw-r--r-- | www/ap-perl/distinfo | 3 | ||||
| -rw-r--r-- | www/ap-perl/patches/patch-src_modules_perl_perl__util.c | 23 |
2 files changed, 25 insertions, 1 deletions
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) |