close directory after reading from it

diff --git a/scripts/spamscan b/scripts/spamscan
index 9114b837439747b556b4ad9eede35218c8d72398..6d8918776639dbf5300603bea92169c1e45ccd37 100755 (executable)
--- 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;