wait longer for locks

[debbugs.git] / scripts / spamscan

diff --git a/scripts/spamscan b/scripts/spamscan
index 9114b837439747b556b4ad9eede35218c8d72398..ed65e9a76d7c441db78a1482d8df15d547ef0189 100755 (executable)
--- a/scripts/spamscan
+++ b/scripts/spamscan
@@ -14,6 +14,8 @@
 use warnings;
 use strict;
 
+use lib qw(/usr/lib/debbugs);
+
 use threads;
 use threads::shared;
 
@@ -259,10 +261,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;