perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Doug MacEachern <do...@covalent.net>
Subject Re: Apache::Registry RFE
Date Thu, 01 Jun 2000 21:31:55 GMT
> 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(@_);


Mime
View raw message