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 do...@apache.org on 2002/05/15 01:11:14 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigParse.pm
dougm 02/05/14 16:11:14
Modified: perl-framework/Apache-Test/lib/Apache TestConfigParse.pm
Log:
add should_load_module method where subclasses can disable inheriting LoadModule directives
Revision Changes Path
1.25 +11 -1 httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigParse.pm
Index: TestConfigParse.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigParse.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- TestConfigParse.pm 14 May 2002 21:53:51 -0000 1.24
+++ TestConfigParse.pm 14 May 2002 23:11:14 -0000 1.25
@@ -84,6 +84,8 @@
'mod_modperl.c' => 'mod_perl.c',
);
+sub should_load_module { 1 }
+
#inherit LoadModule
sub inherit_load_module {
my($self, $c, $directive) = @_;
@@ -100,8 +102,16 @@
my $name = basename $args->[1];
$name =~ s/\.s[ol]$/.c/; #mod_info.so => mod_info.c
$name =~ s/^lib/mod_/; #libphp4.so => mod_php4.c
- debug "LoadModule $modname $name";
+
$name = $modname_alias{$name} if $modname_alias{$name};
+
+ unless ($self->should_load_module($name)) {
+ debug "Skipping LoadModule of $name";
+ next;
+ }
+
+ debug "LoadModule $modname $name";
+
$self->{modules}->{$name} = 1;
$self->preamble($directive => qq($modname "$file"));