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

[Rong-En Fan]

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 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/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;
+ }