httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigParse.pm
Date Tue, 14 May 2002 23:11:14 GMT
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"));
  
  
  

Mime
View raw message