You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2004/08/06 21:31:21 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache Test.pm TestConfig.pm
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);