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