installer/data/mysql/db_revs/221200040.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "33488",
   5     description => "Add index to fromBranch for branch_transfer_limits",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         # Do you stuffs here
  10         unless ( index_exists( 'branch_transfer_limits', 'fromBranch_idx' ) ) {
  11             $dbh->do(q{CREATE INDEX fromBranch_idx ON branch_transfer_limits ( fromBranch )});
  12             say $out "Added new index on branch_transfer_limits.fromBranch";
  13         }
  14     },
  15 };