From 0a197336d7e9d3776d95e0876ee058132108bb82 Mon Sep 17 00:00:00 2001
From: Jens Steidl <Jens.Steidl@slub-dresden.de>
Date: Thu, 6 Jan 2022 08:34:49 +0100
Subject: [PATCH] - fix: prevent a growing cache file, remove old content
before a new scan
---
deep_fixitycheck.pl | 1 +
1 file changed, 1 insertion(+)
diff --git a/deep_fixitycheck.pl b/deep_fixitycheck.pl
index 3e71b75..8aa2557 100644
--- a/deep_fixitycheck.pl
+++ b/deep_fixitycheck.pl
@@ -64,6 +64,7 @@ sub searching_ie_files ($$) {
and $File::Find::prune = 1;
if (-d $_) { $first_two_levels_of_dirs++;}
};
+ $tmp_ies_unsorted_path->spew_utf8("");
find( $wanted_twolevel_dircount, $dir);
my $progressbar=Time::Progress->new(min => 0, max => $first_two_levels_of_dirs, smoothing => 1);
my $dircount = 0;
--
GitLab