> 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(@_);