use Modern::Perl;

return {
    bug_number => "29778",
    description => "Delete orphan additional contents",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};
        $dbh->do(q{
            DELETE FROM additional_contents
            WHERE code NOT IN (
                SELECT code
                FROM additional_contents
                WHERE lang = "default"
            );
        });
    },
}
