Clean up temporary work files
git-svn-id: https://svn.apache.org/repos/asf/spamassassin/trunk@1886903 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/masses/rule-qa/corpus-hourly b/masses/rule-qa/corpus-hourly
index 8c49013..6eb114a 100755
--- a/masses/rule-qa/corpus-hourly
+++ b/masses/rule-qa/corpus-hourly
@@ -446,6 +446,8 @@
}
close(IN);
for (sort sort_all @output) { print OUT; }
+ unlink "$opt{tmp}/ham.log.$$";
+ unlink "$opt{tmp}/spam.log.$$";
}
elsif ($age eq "age") {
my @output;
@@ -476,6 +478,8 @@
close(IN);
}
for (sort sort_all @output) { print OUT; }
+ unlink "$opt{tmp}/ham.log.$$";
+ unlink "$opt{tmp}/spam.log.$$";
}
elsif (@ham && @spam) {
# get logs
@@ -486,6 +490,8 @@
open(IN, "./hit-frequencies -TxpaP $flags $opt{tmp}/spam.log.$$ $opt{tmp}/ham.log.$$ |");
while(<IN>) { print(OUT); }
close(IN);
+ unlink "$opt{tmp}/ham.log.$$";
+ unlink "$opt{tmp}/spam.log.$$";
}
$bytes = (-s OUT);