You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/07/13 22:43:18 UTC
cvs commit: modperl Changes Makefile.PL mod_perl_traps.pod
dougm 98/07/13 13:43:17
Modified: . Changes Makefile.PL mod_perl_traps.pod
Log:
fix Makefile.PL setting of numeric $User/$Group for 'make test'
[Michael K. Sanders <ms...@confusion.net>]
Revision Changes Path
1.72 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -r1.71 -r1.72
--- Changes 1998/07/13 14:57:57 1.71
+++ Changes 1998/07/13 20:43:06 1.72
@@ -8,6 +8,9 @@
=item 1.12_01-dev
+fix Makefile.PL setting of numeric $User/$Group for 'make test'
+[Michael K. Sanders <ms...@confusion.net>]
+
giving PERL_STASH_POST_DATA=1 to Makefile.PL will save
read(STDIN, ...)/$r->read data in $r->subprocess_env for logging
1.62 +9 -2 modperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /export/home/cvs/modperl/Makefile.PL,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -r1.61 -r1.62
--- Makefile.PL 1998/07/13 14:57:58 1.61
+++ Makefile.PL 1998/07/13 20:43:07 1.62
@@ -694,8 +694,15 @@
cp "t/conf/httpd.conf-dist", "t/conf/httpd.conf";
chmod 0644, "t/conf/httpd.conf";
- $User = $Is_Win32 ? "nobody" : (getpwuid($>) || $>);
- $Group = $Is_Win32 ? "nogroup" : (getgrgid($)) || $));
+ $uid = $>;
+ $gid = $);
+
+ #use only first value if $) contains more than one
+ $gid =~ s/^(\d+).*$/$1/;
+
+ $User = $Is_Win32 ? "nobody" : (getpwuid($uid) || "#$uid");
+ $Group = $Is_Win32 ? "nogroup" : (getgrgid($gid) || "#$gid");
+
if($User eq "root") {
my $other = (getpwnam('nobody'))[0];
$User = $other if $other;
1.8 +2 -0 modperl/mod_perl_traps.pod
Index: mod_perl_traps.pod
===================================================================
RCS file: /export/home/cvs/modperl/mod_perl_traps.pod,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- mod_perl_traps.pod 1998/07/12 21:21:09 1.7
+++ mod_perl_traps.pod 1998/07/13 20:43:08 1.8
@@ -220,6 +220,8 @@
-Xlinker -E
+This problem is only known to be caused by installing gnu ld under Solaris.
+
=back