Date: Sat, 11 Sep 2004 04:08:47 +0800 (CST) From: Rong-En Fan <rafan@infor.org> To: FreeBSD-gnats-submit@freebsd.org Cc: ports@freebsd.org Subject: [PATCH] devel/PPerl: take maintainership & add multiuser support Message-ID: <200409102008.i8AK8lbj030608@woodstock.csie.org>
next in thread | raw e-mail | index | archive | help
>Submitter-Id: current-users >Originator: Rong-En Fan >Organization: NTU CSIE >Confidential: no >Synopsis: [PATCH] devel/PPerl: take maintainership & add multiuser support >Severity: non-critical >Priority: low >Category: ports >Class: change-request >Release: FreeBSD 6.0-CURRENT i386 >Environment: System: FreeBSD woodstock.csie.org 6.0-CURRENT FreeBSD 6.0-CURRENT #2: Sun Sep 5 23:59:56 CST >Description: - Take maintainership - add multiuser support from http://rt.cpan.org/NoAuth/Bug.html?id=5485 With this patch, we can allow multiuser run devel/svk on a shared box. Added file(s): - files/patch-main.c Port maintainer (ports@FreeBSD.org) is cc'd. Generated with FreeBSD Port Tools 0.63 >How-To-Repeat: >Fix: --- p5-PPerl-0.25_1.patch begins here --- diff -ruN --exclude=CVS /usr/ports/devel/p5-PPerl/Makefile /home/rafan/tmp/ports/p5-PPerl/Makefile --- /usr/ports/devel/p5-PPerl/Makefile Sat Sep 11 04:07:19 2004 +++ /home/rafan/tmp/ports/p5-PPerl/Makefile Sat Sep 11 04:04:51 2004 @@ -8,12 +8,13 @@ PORTNAME= PPerl PORTVERSION= 0.25 +PORTREVISION= 1 CATEGORIES= devel perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= ../../authors/id/M/MS/MSERGEANT PKGNAMEPREFIX= p5- -MAINTAINER= ports@FreeBSD.org +MAINTAINER= rafan@infor.org COMMENT= Make perl scripts persistent in memory USE_PERL5= yes diff -ruN --exclude=CVS /usr/ports/devel/p5-PPerl/files/patch-main.c /home/rafan/tmp/ports/p5-PPerl/files/patch-main.c --- /usr/ports/devel/p5-PPerl/files/patch-main.c Thu Jan 1 08:00:00 1970 +++ /home/rafan/tmp/ports/p5-PPerl/files/patch-main.c Sat Sep 11 03:55:39 2004 @@ -0,0 +1,29 @@ +--- main.c.orig Sat Sep 11 03:54:05 2004 ++++ main.c Sat Sep 11 03:55:32 2004 +@@ -224,13 +224,16 @@ + char *fullpath = my_malloc(path_max); + int i = 0; + ++ char euid[sizeof(uid_t)+2]; ++ sprintf(euid, "_%d", geteuid()); ++ + if (realpath(scriptname, fullpath) == NULL) { + perror("pperl: resolving full pathname to script failed"); + exit(1); + } + Dx(Debug("realpath returned: %s\n", fullpath)); + /* Ugh. I am a terrible C programmer! */ +- sockname = my_malloc(strlen(P_tmpdir) + strlen(fullpath) + 3); ++ sockname = my_malloc(strlen(P_tmpdir) + strlen(fullpath) + 3 + strlen(euid)); + save = sockname; + sprintf(sockname, "%s/", P_tmpdir); + sockname += strlen(P_tmpdir) + 1; +@@ -246,7 +249,7 @@ + } + sockname++; i++; + } +- *sockname = '\0'; ++ strcat(sockname, euid); + free(fullpath); + return save; + } --- p5-PPerl-0.25_1.patch ends here ---
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200409102008.i8AK8lbj030608>