| Subject: | Dir::List - cached results with mod_perl environment |
Hi Oliver,
when I use Dir::List in a mod_perl environment, I get cached results
for the second and furthermore calls to dirinfo. This problem exists
if you instantiate Dir::List only one time, and call it serveral
times. (call to sub handler in listing)
I think this is because "$self->{list}" isn't deleted at the start of
sub dirinfo.
Thanks
Andi
#---------------------------------------------------
package Test;
use Dir::List;
my $dir = new Dir::List({
check_diskusage => 0,
show_directory_owner => 1,
show_directory_group => 0,
show_file_owner => 1,
show_file_group => 0,
datetimeformat => "%d.%m.%Y %H:%M:%S",
new_is_max_sec => 86400 * 5,
});
sub handler {
my $r = shift;
my $d = $dir->dirinfo($r->uri);
return 1;
}
#------------------------------------------------------