stas 2004/01/02 17:43:24
Modified: perl-framework/Apache-Test/lib/Apache TestConfig.pm
Log:
reconfigure only if '-port select' is used, otherwise leave things alone
Revision Changes Path
1.191 +6 -2
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.190
retrieving revision 1.191
diff -u -u -r1.190 -r1.191
--- TestConfig.pm 20 Dec 2003 07:30:43 -0000 1.190
+++ TestConfig.pm 3 Jan 2004 01:43:24 -0000 1.191
@@ -1352,13 +1352,17 @@
my @reasons = ();
my $vars = $self->{vars};
+ # if '-port select' we need to check from scratch which ports are
+ # available
if (my $port = $conf_opts->{port} || $Apache::TestConfig::Argv{port}) {
- push @reasons, "'-port $port' requires reconfiguration";
+ if ($port eq 'select') {
+ push @reasons, "'-port $port' requires reconfiguration";
+ }
}
my $exe = $vars->{apxs} || $vars->{httpd};
# if httpd.conf is older than executable
- push @reasons,
+ push @reasons,
"$exe is newer than $vars->{t_conf_file}"
if -e $exe &&
-e $vars->{t_conf_file} &&
