perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jkal...@apache.org
Subject svn commit: r1448187 - /perl/modperl/branches/httpd24/t/response/TestAPI/aplog.pm
Date Wed, 20 Feb 2013 14:36:58 GMT
Author: jkaluza
Date: Wed Feb 20 14:36:57 2013
New Revision: 1448187

URL: http://svn.apache.org/r1448187
Log:
* t/response/TestAPI/aplog.pm: Set loglevel to LOG_DEBUG for tests which need it

Modified:
    perl/modperl/branches/httpd24/t/response/TestAPI/aplog.pm

Modified: perl/modperl/branches/httpd24/t/response/TestAPI/aplog.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24/t/response/TestAPI/aplog.pm?rev=1448187&r1=1448186&r2=1448187&view=diff
==============================================================================
--- perl/modperl/branches/httpd24/t/response/TestAPI/aplog.pm (original)
+++ perl/modperl/branches/httpd24/t/response/TestAPI/aplog.pm Wed Feb 20 14:36:57 2013
@@ -59,6 +59,9 @@ sub handler {
 
     # log_serror
     {
+        my $orig_log_level = $s->loglevel;
+
+        $s->loglevel(Apache2::Const::LOG_DEBUG);
         t_server_log_warn_is_expected();
         $s->log_serror(Apache2::Log::LOG_MARK,
                        Apache2::Const::LOG_INFO|Apache2::Const::LOG_STARTUP,
@@ -85,6 +88,7 @@ sub handler {
         ok t_cmp $logdiff->diff,
             qr/$egeneral: log_serror test 2/,
             '$s->log_serror(LOG_MARK, LOG_DEBUG, APR::Const::EGENERAL...)';
+        $s->loglevel($orig_log_level);
     }
 
     # log_rerror



Mime
View raw message