Bug 71572 - [PATCH] devel/p5-PPerl: take maintainership & add multiuser support
Summary: [PATCH] devel/p5-PPerl: take maintainership & add multiuser support
Status: Closed FIXED
Alias: None
Product: Ports & Packages
Classification: Unclassified
Component: Individual Port(s) (show other bugs)
Version: Latest
Hardware: Any Any
: Normal Affects Only Me
Assignee: freebsd-ports-bugs (Nobody)
URL:
Keywords:
Depends on:
Blocks:
 
Reported: 2004-09-10 21:10 UTC by Rong-En Fan
Modified: 2004-12-13 10:35 UTC (History)
1 user (show)

See Also:


Attachments
p5-PPerl-0.25_1.patch (1.73 KB, patch)
2004-09-10 21:10 UTC, Rong-En Fan
no flags Details | Diff

Note You need to log in before you can comment on or make changes to this bug.
Description Rong-En Fan 2004-09-10 21:10:26 UTC
- 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
Comment 1 Rong-En Fan 2004-09-11 06:29:04 UTC
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;
+ }
Comment 2 Vanilla I. Shu freebsd_committer freebsd_triage 2004-12-13 10:35:05 UTC
State Changed
From-To: open->closed

Committed, thanks.