X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fspamscan;h=6d8918776639dbf5300603bea92169c1e45ccd37;hb=1a1fa6f0af2be9d4076d9aad5f5a84c5fb3d9a8a;hp=9114b837439747b556b4ad9eede35218c8d72398;hpb=46fa42780ecb746d7bec2fb01190b05584b9283e;p=debbugs.git

diff --git a/scripts/spamscan b/scripts/spamscan
index 9114b83..6d89187 100755
--- a/scripts/spamscan
+++ b/scripts/spamscan
@@ -259,10 +259,11 @@ for (;;) {
 	    last;
 	}
         my @i;
-	opendir DIR, 'incoming' or die "opendir incoming: $!";
-	while (defined($_ = readdir DIR)) {
+	opendir my $dir, 'incoming' or die "opendir incoming: $!";
+	while (defined($_ = readdir $dir)) {
 	    push @i, $1 if /^S(.*)/;
 	}
+	close $dir;
 	unless (@i) {
 	    lprint "No more spam to process\n";
 	    last;