cvs commit: modperl-2.0/t/conf modperl_extra.pl

[stas]

stas        2004/07/14 12:19:40

  Modified:    t/conf   modperl_extra.pl
  Log:
  test startup loglevel setting (under threaded mpms loglevel can be
  changed only before threads are started) so here we test whether we
  can still set it after restart
  
  Revision  Changes    Path
  1.55      +12 -1     modperl-2.0/t/conf/modperl_extra.pl
  
  Index: modperl_extra.pl
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/conf/modperl_extra.pl,v
  retrieving revision 1.54
  retrieving revision 1.55
  diff -u -u -r1.54 -r1.55
  --- modperl_extra.pl  9 Jul 2004 08:01:20 -0000       1.54
  +++ modperl_extra.pl  14 Jul 2004 19:19:39 -0000      1.55
  @@ -41,7 +41,7 @@
   use Apache::Log ();
   
   use Apache::Const -compile => ':common';
  -use APR::Const -compile => ':common';
  +use APR::Const    -compile => ':common';
   
   use APR::Table ();
   
  @@ -58,6 +58,17 @@
   
   my $ap_mods  = scalar grep { /^Apache/ } keys %INC;
   my $apr_mods = scalar grep { /^APR/    } keys %INC;
  +
  +# test startup loglevel setting (under threaded mpms loglevel can be
  +# changed only before threads are started) so here we test whether we
  +# can still set it after restart
  +{
  +    use Apache::Const -compile => 'Apache::LOG_INFO';
  +    my $s = Apache->server;
  +    my $oldloglevel = $s->loglevel(Apache::LOG_INFO);
  +    # restore
  +    $s->loglevel($oldloglevel);
  +}
   
   Apache::Log->info("$ap_mods Apache:: modules loaded");
   Apache::ServerRec->log->info("$apr_mods APR:: modules loaded");