From: Blars Blarson <blarson@uvula>
Date: Sat, 8 Sep 2007 19:16:18 +0000 (-0700)
Subject: Fix deleting temporary files.
X-Git-Tag: release/2.6.0~515^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d5e35b6ba234a0d8e3f26706a08d489816fa19e4;p=debbugs.git

Fix deleting temporary files.
---

diff --git a/scripts/spamscan-sa b/scripts/spamscan-sa
index 3ee76826..a9648504 100755
--- a/scripts/spamscan-sa
+++ b/scripts/spamscan-sa
@@ -148,6 +148,7 @@ $spam->compile_now(1); # use all user preferences
 			or die "print assassinated: $!";
 		}
 		close OUT or die "Close assassinated: $!";
+		unlink "incoming/R$id" or warn "unlink incoming/R$id: $!";
 	    }
 	    $out =~ tr/\n/\r/;
 	    print "$nseen\n$out\n";