switch to compatibility level 12

[debbugs.git] / Debbugs / DB / ResultSet / Bug.pm

diff --git a/Debbugs/DB/ResultSet/Bug.pm b/Debbugs/DB/ResultSet/Bug.pm
index 5dbd5aa52f3203c3a3e3044093788bc768a1eefd..265d4d97b8d82d169bfb00b8b65a5c517e16c84d 100644 (file)
--- a/Debbugs/DB/ResultSet/Bug.pm
+++ b/Debbugs/DB/ResultSet/Bug.pm
@@ -23,9 +23,10 @@ use strict;
 use warnings;
 
 use base 'DBIx::Class::ResultSet';
+
 use Debbugs::DB::Util qw(select_one);
 
-use List::MoreUtils qw(natatime);
+use List::AllUtils qw(natatime);
 
 
 =over
@@ -44,7 +45,7 @@ for first time.
 sub quick_insert_bugs {
     my ($self,@bugs) = @_;
 
-    my $it = natatime 300, @bugs;
+    my $it = natatime 2000, @bugs;
 
     while (my @b = $it->()) {
        $self->result_source->schema->