use Apache2::Const -compile => qw(:log);
  use APR::Const     -compile => qw(ENOTIME SUCCESS);
 
  *CORE::GLOBAL::warn = \&mywarn;
 
  sub mywarn
  {
   my @msg = @_;
 
   my $s = Apache2::ServerUtil->server; 
   $s->log_serror(Apache2::Log::LOG_MARK, Apache2::Const::LOG_WARNING,
           APR::Const::SUCCESS, @msg);
   $s->log_serror(Apache2::Log::LOG_MARK, Apache2::Const::LOG_ERR,
           APR::Const::SUCCESS, @msg);
  }