| Subject: | Module is caching ".nfs*" temporary files |
Earl,
the code logic in "---> <--" is eliminating "." and ".." files in
directory but not ".nfs*" files, which we can find in most of the file
systems.
========================
opendir(DIR, $ttl_dir);
while (my $sub_dir = readdir(DIR)) {
--> next if($sub_dir =~ /^\.\.?$/); <-----
next if($sub_dir =~ /$self->{cleanup_suffix}/);
$sub_dir = $1 if $sub_dir =~ /(.+)/;
if($self->expired_check($sub_dir)) {
$self->perhaps_cleanup("$ttl_dir$sub_dir");
}
}
closedir(DIR);
====================================