diff options
| author | Vanilla I. Shu <vanilla@FreeBSD.org> | 2004-12-13 10:34:45 +0000 |
|---|---|---|
| committer | Vanilla I. Shu <vanilla@FreeBSD.org> | 2004-12-13 10:34:45 +0000 |
| commit | 690b0b75cd30238ae1a4d49da1b723adb6e49473 (patch) | |
| tree | b0b6f4751c2e35ab1e1414aafdbcb5eb8f057d15 /devel | |
| parent | f49c53ef084ed6ea5734ccc29cd9fa8dce2b10fc (diff) | |
| download | ports-690b0b75cd30238ae1a4d49da1b723adb6e49473.tar.gz ports-690b0b75cd30238ae1a4d49da1b723adb6e49473.zip | |
Notes
Diffstat (limited to 'devel')
| -rw-r--r-- | devel/p5-PPerl/Makefile | 3 | ||||
| -rw-r--r-- | devel/p5-PPerl/files/patch-main.c | 29 |
2 files changed, 31 insertions, 1 deletions
diff --git a/devel/p5-PPerl/Makefile b/devel/p5-PPerl/Makefile index 3bf30b217117..a99c7b02461d 100644 --- a/devel/p5-PPerl/Makefile +++ b/devel/p5-PPerl/Makefile @@ -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 --git a/devel/p5-PPerl/files/patch-main.c b/devel/p5-PPerl/files/patch-main.c new file mode 100644 index 000000000000..79795b564c62 --- /dev/null +++ b/devel/p5-PPerl/files/patch-main.c @@ -0,0 +1,29 @@ +--- main.c.orig Wed Mar 3 01:06:15 2004 ++++ main.c Mon Dec 13 18:22:53 2004 +@@ -223,6 +223,8 @@ + /* strict C compilers can't/won't do char foo[variant]; */ + 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"); +@@ -230,7 +232,7 @@ + } + 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 +248,7 @@ + } + sockname++; i++; + } +- *sockname = '\0'; ++ strcat(sockname, euid); + free(fullpath); + return save; + } |