X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fspamscan;h=6d8918776639dbf5300603bea92169c1e45ccd37;hb=0194fd6c85f2dcb72a2b574fc0fc677444136c76;hp=9114b837439747b556b4ad9eede35218c8d72398;hpb=036a010e476a6b6d89d8031cc3c36f9d39b663d7;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;