[mp2][PATCH] enhancement for Apache::Reload

[Andreas Bauer]

Hi,

I wrote a small patch for Apache::Reload allowing a finer control over the
messages logged to error_log. It stops the module from flooding the logfile
with 'Checking mtime ...' messages.

To activate just the 'process 42 reloading Foo.pm' messages, set
'PerlSetVar ReloadInfo On' in the apache config file.

Andreas


--- Reload.pm.old       2004-05-14 16:09:23.792928088 +0200
+++ Reload.pm   2004-05-14 16:07:46.316746720 +0200
@@ -61,6 +61,8 @@ sub handler {
 
     my $DEBUG = ref($o) && (lc($o->dir_config("ReloadDebug") || '') eq 'on');
 
+    my $DEBUG_INFO = $DEBUG || (ref($o) && (lc($o->dir_config("ReloadInfo") || '') eq 
'on'));
+
     my $TouchFile = ref($o) && $o->dir_config("ReloadTouchFile");
 
     my $ConstantRedefineWarnings = ref($o) && 
@@ -150,7 +152,7 @@ sub handler {
                 unless $ConstantRedefineWarnings;
             require $key;
             warn("Apache::Reload: process $$ reloading $key\n")
-                    if $DEBUG;
+                    if $DEBUG_INFO;
         }
         $Stat{$file} = $mtime;
     }

-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html