Clean up temporary work files
git-svn-id: https://svn.apache.org/repos/asf/spamassassin/trunk@1886902 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/masses/rule-qa/reports-from-logs b/masses/rule-qa/reports-from-logs
index c2a2a5c..92a470a 100755
--- a/masses/rule-qa/reports-from-logs
+++ b/masses/rule-qa/reports-from-logs
@@ -374,6 +374,8 @@
$bytes = (-s OUT);
close(OUT);
+ unlink $tmp_h, $tmp_s;
+
if ($no_messages_in_freqs) {
warn "ERROR: no data in freqs! aborting, leaving tmp file as $tmpfname";
return;
@@ -631,6 +633,7 @@
if (-z $tmp_h_all && -z $tmp_s_all) {
warn "time_filter_fileset() returned empty logs. not creating freqs!";
+ unlink $tmp_h_all, $tmp_s_all;
return; # we'll try again later
}
@@ -641,6 +644,8 @@
}
close(FREQS);
for (sort sort_all @output) { print OUT; }
+
+ unlink $tmp_h_all, $tmp_s_all;
}
# ---------------------------------------------------------------------------