From owner-freebsd-ports-bugs@FreeBSD.ORG Sat Sep 11 05:30:15 2004 Return-Path: Delivered-To: freebsd-ports-bugs@hub.freebsd.org Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id 0224E16A4CE for ; Sat, 11 Sep 2004 05:30:15 +0000 (GMT) Received: from freefall.freebsd.org (freefall.freebsd.org [216.136.204.21]) by mx1.FreeBSD.org (Postfix) with ESMTP id D0CFB43D41 for ; Sat, 11 Sep 2004 05:30:14 +0000 (GMT) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (gnats@localhost [127.0.0.1]) i8B5UEA7093777 for ; Sat, 11 Sep 2004 05:30:14 GMT (envelope-from gnats@freefall.freebsd.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.12.11/8.12.11/Submit) id i8B5UEHu093776; Sat, 11 Sep 2004 05:30:14 GMT (envelope-from gnats) Date: Sat, 11 Sep 2004 05:30:14 GMT Message-Id: <200409110530.i8B5UEHu093776@freefall.freebsd.org> To: freebsd-ports-bugs@FreeBSD.org From: Rong-En Fan Subject: Re: ports/71572: [PATCH] devel/PPerl: take maintainership & add multiuser support X-BeenThere: freebsd-ports-bugs@freebsd.org X-Mailman-Version: 2.1.1 Precedence: list Reply-To: Rong-En Fan List-Id: Ports bug reports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 11 Sep 2004 05:30:15 -0000 The following reply was made to PR ports/71572; it has been noted by GNATS. From: Rong-En Fan To: FreeBSD-gnats-submit@FreeBSD.org, freebsd-ports-bugs@FreeBSD.org Cc: Subject: Re: ports/71572: [PATCH] devel/PPerl: take maintainership & add multiuser support Date: Sat, 11 Sep 2004 13:29:04 +0800 The previous patch-main.c is wrong. abandon previous patch, use following instead. 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/diff /home/rafan/tmp/ports/p5-PPerl/diff --- /usr/ports/devel/p5-PPerl/diff Thu Jan 1 08:00:00 1970 +++ /home/rafan/tmp/ports/p5-PPerl/diff Sat Sep 11 13:27:39 2004 @@ -0,0 +1 @@ +===> Generating patch 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 13:24:50 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[12]; ++ 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'; ++ strncat(sockname, euid, 11); + free(fullpath); + return save; + }