installer/data/mysql/db_revs/220600009.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "30889",
   5     description => "Add calling context information to background_jobs",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         unless( column_exists( 'background_jobs', 'context') ) {
  11             $dbh->do(q{
  12                 ALTER TABLE background_jobs
  13                     ADD `context` longtext COLLATE utf8mb4_unicode_ci DEFAULT NULL
  14                     COMMENT 'JSON-serialized context information for the job'
  15                     AFTER `data`
  16             });
  17
  18             say $out "Added column 'background_jobs.context'";
  19         }
  20     },
  21 };