switch to compatibility level 12

[debbugs.git] / Debbugs / DB / Result / BugBlock.pm

diff --git a/Debbugs/DB/Result/BugBlock.pm b/Debbugs/DB/Result/BugBlock.pm
index 467ab6846db7496e4e3a13c40ea869368083096b..0200a313657d0fe0c4996ddf8960039aa9c91f8a 100644 (file)
--- a/Debbugs/DB/Result/BugBlock.pm
+++ b/Debbugs/DB/Result/BugBlock.pm
@@ -141,5 +141,12 @@ __PACKAGE__->belongs_to(
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Rkt0XlA4r2YFX0KnUZmS6A
 
 
-# You can replace this text with custom code or comments, and it will be preserved on regeneration
+sub sqlt_deploy_hook {
+    my ($self, $sqlt_table) = @_;
+    for my $idx (qw(bug blocks)) {
+       $sqlt_table->add_index(name => 'bug_blocks_'.$idx.'_idx',
+                              fields => [$idx]);
+    }
+}
+
 1;