stas 2003/10/01 11:32:26
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
perl-framework/Apache-Test Changes
Log:
when testing whether Apache started as root and running under 'nobody'
or alike, will be able to -r/-w/-x in t/ use 'su' instead of 'sudo',
the latter is not available on all unix platforms.
Submitted by: Vivek Khera <[email protected]>
Revision Changes Path
1.115 +2 -2
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
Index: TestRun.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -u -r1.114 -r1.115
--- TestRun.pm 12 Sep 2003 02:21:32 -0000 1.114
+++ TestRun.pm 1 Oct 2003 18:32:26 -0000 1.115
@@ -765,8 +765,8 @@
my $vars = $self->{test_config}->{vars};
my $dir = $vars->{t_dir};
my $perl = $vars->{perl};
- my $check = qq[sudo -u '#$uid' $perl -e ] .
- qq['print -r "$dir" && -w _ && -x _ ? "OK" : "NOK"'];
+ my $check = qq[su -m $user -c '$perl -e ] .
+ qq["print -r q{$dir} && -w _ && -x _ ? q{OK} : q{NOK}"'];
warning "$check\n";
my $res = qx[$check] || '';
warning "result: $res";
1.49 +5 -0 httpd-test/perl-framework/Apache-Test/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/Changes,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -u -r1.48 -r1.49
--- Changes 1 Oct 2003 18:22:03 -0000 1.48
+++ Changes 1 Oct 2003 18:32:26 -0000 1.49
@@ -8,6 +8,11 @@
=item 1.05-dev
+when testing whether Apache started as root and running under 'nobody'
+or alike, will be able to -r/-w/-x in t/ use 'su' instead of 'sudo',
+the latter is not available on all unix platforms. [Vivek Khera
+<[email protected]>]
+
in the Apache/test.pm nuke code s/PERLRUN/FULLPERL/ as older MakeMaker
doesn't have the PERLRUN target [Stas]
