Re: Apache::Registry RFE

[Doug MacEachern]

> Thanks - but RegistryNG causes problems elsewhere in my code. 
> Apache::File::mtime() doesn't seem to work with RegistryNG. The code:

whoops!!  Apache::PerlRun/RegistryNG were written before apache introduced
the ap_update_mtime api function.  i've renamed Apache::PerlRun's version
to set_mtime, as it is not supposed to override Apache::update_mtime.

Index: lib/Apache/PerlRun.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v
retrieving revision 1.28
diff -u -r1.28 PerlRun.pm
--- lib/Apache/PerlRun.pm       2000/05/12 07:10:57     1.28
+++ lib/Apache/PerlRun.pm       2000/06/01 21:05:12
@@ -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'};
Index: lib/Apache/RegistryNG.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/RegistryNG.pm,v
retrieving revision 1.5
diff -u -r1.5 RegistryNG.pm
--- lib/Apache/RegistryNG.pm    1999/06/11 02:50:01     1.5
+++ lib/Apache/RegistryNG.pm    2000/06/01 21:05:12
@@ -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(@_);