Sorry if this is already known, or if I'm posting to the wrong
people, (I'm new to the mod_perl world), but :
Looks like there's a minor bug in Apache::Session::Lock::File::clean().
Patch : (against version 1.01, in distribution Apache-Session-1.54)
(also adding proper local()ization of handles)
--- Apache/Session/Lock/File.pm.orig Sat Sep 2 00:21:17 2000
+++ Apache/Session/Lock/File.pm Thu Apr 25 15:45:18 2002
@@ -129,11 +129,14 @@
my $now = time();
+ local *DIR;
+ local *FH;
+
opendir(DIR, $dir) || die $!;
my @files = readdir(DIR);
foreach my $file (@files) {
if ($file =~ /^Apache-Session.*\.lock$/) {
- if ((stat($dir.'/'.$file))[8] - $now >= $time) {
+ if ($now - (stat($dir.'/'.$file))[8] >= $time) {
open(FH, "+>$dir/".$file) || next;
flock(FH, LOCK_EX) || next;
unlink($dir.'/'.$file) || next;
End of Patch.
--
Rafael Garcia-Suarez -- http://rgarciasuarez.free.fr/
http://lyon.pm.org/ -- http://cpan.org/authors/id/R/RG/RGARCIA/
-- http://use.perl.org/~rafael/
