installer/data/mysql/atomicupdate/bug_22785.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "22785",
   5     description => "Add chosen column to import_record_matches",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         unless( column_exists('import_record_matches','chosen') ){
  10             $dbh->do(q{
  11                 ALTER TABLE import_record_matches ADD COLUMN chosen TINYINT null DEFAULT null AFTER score
  12             });
  13             say $out "chosen column added to import_record_matches";
  14         }
  15     },
  16 }