stas 2004/08/06 12:31:21
Modified: perl-framework/Apache-Test/lib/Apache Test.pm TestConfig.pm Log: a few fixes Revision Changes Path 1.91 +1 -1 httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm Index: Test.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm,v retrieving revision 1.90 retrieving revision 1.91 diff -u -u -r1.90 -r1.91 --- Test.pm 4 Aug 2004 19:07:06 -0000 1.90 +++ Test.pm 6 Aug 2004 19:31:21 -0000 1.91 @@ -54,7 +54,7 @@ my $Config; sub config { - $Config ||= Apache::TestConfig->thaw; + $Config ||= Apache::TestConfig->thaw->complete_config; } sub vars { 1.232 +1 -0 httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm Index: TestConfig.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v retrieving revision 1.231 retrieving revision 1.232 diff -u -u -r1.231 -r1.232 --- TestConfig.pm 6 Aug 2004 18:20:41 -0000 1.231 +++ TestConfig.pm 6 Aug 2004 19:31:21 -0000 1.232 @@ -1600,6 +1600,7 @@ sub apxs { my($self, $q, $ok_fail) = @_; return unless $self->{APXS}; + local @ENV{ qw(PATH IFS CDPATH ENV BASH_ENV) }; my $devnull = devnull(); my $apxs = shell_ready($self->{APXS}); my $val = qx($apxs -q $q 2>$devnull);