installer/data/mysql/db_revs/220600056.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => 30571,
   5     description => "Table z3950servers: three cols NOT NULL",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         $dbh->do(q{
  10 alter table z3950servers
  11     change column `host` `host` varchar(255) COLLATE utf8mb4_unicode_ci NOT NULL COMMENT 'target''s host name',
  12     change column `syntax` `syntax` varchar(80) COLLATE utf8mb4_unicode_ci NOT NULL COMMENT 'MARC format provided by this target',
  13     change column `encoding` `encoding` mediumtext COLLATE utf8mb4_unicode_ci NOT NULL COMMENT 'characters encoding provided by this target';
  14         });
  15     },
  16 };