stas 2004/03/24 17:31:29
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
perl-framework/Apache-Test Changes
Log:
Add a virtual method Apache::TestRun::pre_configure, and fix the
documentation to say that subclasses must not forget to run the
superclass' method.
Revision Changes Path
1.162 +9 -1
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.161
retrieving revision 1.162
diff -u -u -r1.161 -r1.162
--- TestRun.pm 11 Mar 2004 23:20:10 -0000 1.161
+++ TestRun.pm 25 Mar 2004 01:31:28 -0000 1.162
@@ -458,6 +458,8 @@
$test_config->postamble_register($postamble);
}
+sub pre_configure { }
+
sub configure {
my $self = shift;
@@ -677,7 +679,7 @@
# must be called after getopts so the tracing will be set right
custom_config_load();
- $self->pre_configure() if $self->can('pre_configure');
+ $self->pre_configure();
$self->{test_config} = $self->new_test_config();
@@ -1797,9 +1799,15 @@
my $self = shift;
# Don't load an installed mod_apreq
Apache::TestConfig::autoconfig_skip_module_add('mod_apreq.c');
+
+ $self->SUPER::pre_configure();
}
Notice that the extension is I<.c>, and not I<.so>.
+
+Don't forget to run the super class' c<pre_configure()> method.
+
+
=head2 C<new_test_config>
1.113 +4 -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.112
retrieving revision 1.113
diff -u -u -r1.112 -r1.113
--- Changes 16 Mar 2004 03:10:32 -0000 1.112
+++ Changes 25 Mar 2004 01:31:29 -0000 1.113
@@ -8,6 +8,10 @@
=item 1.10-dev
+Add a virtual method Apache::TestRun::pre_configure, and fix the
+documentation to say that subclasses must not forget to run the
+superclass' method. [Stas]
+
Apache::TestRunPerl now performs an early check whether it can load
the right mod_perl environment. [William McKee <[EMAIL PROTECTED]>,
Stas]
