Attachment #153718 for bug #33379

View | Details | Raw Unified | Return to bug 33379
Collapse All | Expand All




use Modern::Perl;

return {
    bug_number  => 33379,
    description => "Remove unused column virtualshelfcontents.flags",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};
        if ( column_exists( 'virtualshelfcontents', 'flags' ) ) {
            $dbh->do(
                q{
- 

Return to bug 33379

Lines 1-11 Link Here

(-)a/installer/data/mysql/atomicupdate/bug33379.pl (-4 / +3 lines)
1	use Modern::Perl;	1	use Modern::Perl;
2		2
3	return {	3	return {
4	bug_number => 33379,	4	bug_number => 33379,
5	description => "Remove unused column virtualshelfcontents.flags",	5	description => "Remove unused column virtualshelfcontents.flags",
6	up => sub {	6	up => sub {
7	my ($args) = @_;	7	my ($args) = @_;
8	my ($dbh, $out) = @$args{qw(dbh out)};	8	my ( $dbh, $out ) = @$args{qw(dbh out)};
9	if ( column_exists( 'virtualshelfcontents', 'flags' ) ) {	9	if ( column_exists( 'virtualshelfcontents', 'flags' ) ) {
10	$dbh->do(	10	$dbh->do(
11	q{	11	q{
12	-