Support 7 digit bugs in bugspam.cgi

[debbugs.git] / bin / debbugs-updatesqlcache

diff --git a/bin/debbugs-updatesqlcache b/bin/debbugs-updatesqlcache
index 50058664af26d3e777b53ea804f779242f8a3cd0..9422adfdab945a71e972b3033303a0f9941b99d8 100755 (executable)
--- a/bin/debbugs-updatesqlcache
+++ b/bin/debbugs-updatesqlcache
@@ -96,7 +96,7 @@ use Debbugs::Status qw(bug_presence read_bug);
 use Debbugs::DB;
 use DateTime;
 use File::stat;
-use List::MoreUtils qw(natatime uniq);
+use List::AllUtils qw(natatime uniq);
 use POSIX qw(ceil);
 
 my %options =
@@ -107,7 +107,7 @@ my %options =
      quiet           => 0,
      quick           => 0,
      archived        => 0,
-     service         => $config{debbugs_db},
+     service         => $config{database},
      progress        => 0,
     );
 
@@ -200,8 +200,9 @@ sub update_cache {
        @suites =
            $s->resultset('Suite')->
            search_rs({active => 1,
-                      codename => [make_list($opts->{suites})],
-                      suite_name => [make_list($opts->{suites})],
+                      -or => {codename => [make_list($opts->{suites})],
+                              suite_name => [make_list($opts->{suites})],
+                             },
                      },
                     {result_class => 'DBIx::Class::ResultClass::HashRefInflator'}
                     )->all();