Skip to content
Snippets Groups Projects
Commit 0a197336 authored by Jens Steidl's avatar Jens Steidl :baby_chick:
Browse files

- fix: prevent a growing cache file, remove old content before a new scan

parent fce10b1b
No related branches found
No related tags found
No related merge requests found
...@@ -64,6 +64,7 @@ sub searching_ie_files ($$) { ...@@ -64,6 +64,7 @@ sub searching_ie_files ($$) {
and $File::Find::prune = 1; and $File::Find::prune = 1;
if (-d $_) { $first_two_levels_of_dirs++;} if (-d $_) { $first_two_levels_of_dirs++;}
}; };
$tmp_ies_unsorted_path->spew_utf8("");
find( $wanted_twolevel_dircount, $dir); find( $wanted_twolevel_dircount, $dir);
my $progressbar=Time::Progress->new(min => 0, max => $first_two_levels_of_dirs, smoothing => 1); my $progressbar=Time::Progress->new(min => 0, max => $first_two_levels_of_dirs, smoothing => 1);
my $dircount = 0; my $dircount = 0;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment