From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 24 Jul 2012 17:53:32 +0000 (-0700)
Subject: close directory after reading from it
X-Git-Tag: release/2.6.0~357
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=0194fd6c85f2dcb72a2b574fc0fc677444136c76

close directory after reading from it
---

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;