From 0194fd6c85f2dcb72a2b574fc0fc677444136c76 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 24 Jul 2012 10:53:32 -0700
Subject: [PATCH] close directory after reading from it

---
 scripts/spamscan | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;
-- 
2.39.2