perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From a..@hyperreal.org
Subject cvs commit: modperl/lib/Apache StatINC.pm
Date Wed, 30 Sep 1998 17:46:22 GMT
ask         98/09/30 10:46:21

  Modified:    .        Changes
               lib/Apache StatINC.pm
  Log:
  Apache::StatINC can now be configured to write debug stuff with
  a PerlSetVar
  
  Revision  Changes    Path
  1.164     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.163
  retrieving revision 1.164
  diff -u -r1.163 -r1.164
  --- Changes	1998/09/28 18:04:19	1.163
  +++ Changes	1998/09/30 17:46:20	1.164
  @@ -8,6 +8,9 @@
   
   =item 1.15_02-dev
   
  +Apache::StatINC can now be configured to write debug stuff with
  +a PerlSetVar [Ask Bjoern Hansen <ask@netcetera.dk>]
  +
   perl_startup() will now check the Apache.pm $VERSION
   
   fixups for building Stronghold 2.4
  
  
  
  1.4       +11 -2     modperl/lib/Apache/StatINC.pm
  
  Index: StatINC.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/StatINC.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- StatINC.pm	1998/03/19 23:08:47	1.3
  +++ StatINC.pm	1998/09/30 17:46:21	1.4
  @@ -2,13 +2,14 @@
   
   use strict;
   
  -$Apache::StatINC::VERSION = "1.04";
  +$Apache::StatINC::VERSION = "1.05";
   
   my %Stat = ($INC{"Apache/StatINC.pm"} => time);
   
   sub handler {
       my $r = shift;
       my $do_undef = ref($r) && (lc($r->dir_config("UndefOnReload")) eq "on");
  +	my $DEBUG = (lc($r->dir_config(StatINCDebug) eq "on");
   
       while(my($key,$file) = each %INC) {
   	local $^W = 0;
  @@ -24,7 +25,8 @@
   	    }
   	    delete $INC{$key};
   	    require $key;
  -	    #warn "Apache::StatINC: process $$ reloading $key\n";
  +	    warn "Apache::StatINC: process $$ reloading $key\n"
  +		  if $DEBUG;
   	}
   	$Stat{$file} = $mtime;
       }
  @@ -81,6 +83,13 @@
   warnings:
   
    PerlSetVar UndefOnReload On
  +
  +=item StatINCDebug
  +
  +You can make StatINC tell when it reloads a module by setting this
  +option to on.
  +
  + PerlSetVar StatINCDebug On
   
   =back
   
  
  
  

Mime
View raw message