ports/71572: [PATCH] devel/PPerl: take maintainership & add multiuser support

[Rong-En Fan]

>Number:         71572
>Category:       ports
>Synopsis:       [PATCH] devel/PPerl: take maintainership & add multiuser support
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Fri Sep 10 20:10:26 GMT 2004
>Closed-Date:
>Last-Modified:
>Originator:     Rong-En Fan
>Release:        FreeBSD 6.0-CURRENT i386
>Organization:
NTU CSIE
>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 at 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 at FreeBSD.org
+MAINTAINER=	rafan at 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 ---

>Release-Note:
>Audit-Trail:
>Unformatted: