You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@locus.apache.org on 2000/06/01 23:07:57 UTC

cvs commit: modperl/lib/Apache PerlRun.pm RegistryNG.pm

dougm       00/06/01 14:07:57

  Modified:    .        Changes
               lib/Apache PerlRun.pm RegistryNG.pm
  Log:
  rename Apache::{PerlRun,RegistryNG}::update_mtime to set_mtime, so
  Apache::update_mtime is not overridden
  
  Revision  Changes    Path
  1.494     +4 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.493
  retrieving revision 1.494
  diff -u -r1.493 -r1.494
  --- Changes	2000/05/29 08:11:14	1.493
  +++ Changes	2000/06/01 21:07:56	1.494
  @@ -10,6 +10,10 @@
   
   =item 1.24_01-dev
   
  +rename Apache::{PerlRun,RegistryNG}::update_mtime to set_mtime, so
  +Apache::update_mtime is not overridden
  +thanks to Michael Blakeley for the spot
  +
   constant 'DECLINED' wasn't imported by Apache::RegistryBB, thanks to
   Michael Blakeley for the spot [Eric Cholet <ch...@logilune.com>]
   
  
  
  
  1.29      +1 -1      modperl/lib/Apache/PerlRun.pm
  
  Index: PerlRun.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v
  retrieving revision 1.28
  retrieving revision 1.29
  diff -u -r1.28 -r1.29
  --- PerlRun.pm	2000/05/12 07:10:57	1.28
  +++ PerlRun.pm	2000/06/01 21:07:56	1.29
  @@ -104,7 +104,7 @@
         $Apache::Registry->{$package}{'mtime'} <= $mtime);
   }
   
  -sub update_mtime {
  +sub set_mtime {
       my($pr, $mtime, $package) = @_;
       $mtime   ||= $pr->{'mtime'};
       $package ||= $pr->{'namespace'};
  
  
  
  1.6       +1 -1      modperl/lib/Apache/RegistryNG.pm
  
  Index: RegistryNG.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/RegistryNG.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- RegistryNG.pm	1999/06/11 02:50:01	1.5
  +++ RegistryNG.pm	2000/06/01 21:07:57	1.6
  @@ -45,7 +45,7 @@
   	$pr->sub_wrap;
   	my $rc = $pr->compile;
           return $rc if $rc != OK;
  -	$pr->update_mtime;
  +	$pr->set_mtime;
       }
   
       $rc = $pr->run(@_);