From 2f26de8746576c65fb289f7344dc4507f1e64bca Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 17 Nov 2023 17:25:58 +0000 Subject: [PATCH] Bug 26831: (follow-up) Tidy code for qa script Signed-off-by: Kyle M Hall Signed-off-by: Katrin Fischer --- ...26831-add_PurgeListShareInvitesOlderThan_syspref.pl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/installer/data/mysql/atomicupdate/bug_26831-add_PurgeListShareInvitesOlderThan_syspref.pl b/installer/data/mysql/atomicupdate/bug_26831-add_PurgeListShareInvitesOlderThan_syspref.pl index 5c3fb36401..f9314a314d 100755 --- a/installer/data/mysql/atomicupdate/bug_26831-add_PurgeListShareInvitesOlderThan_syspref.pl +++ b/installer/data/mysql/atomicupdate/bug_26831-add_PurgeListShareInvitesOlderThan_syspref.pl @@ -1,12 +1,14 @@ use Modern::Perl; return { - bug_number => "26831", + bug_number => "26831", description => "Add new system preference PurgeListShareInvitesOlderThan", - up => sub { + up => sub { my ($args) = @_; - my ($dbh, $out) = @$args{qw(dbh out)}; + my ( $dbh, $out ) = @$args{qw(dbh out)}; - $dbh->do(q{INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('PurgeListShareInvitesOlderThan', '14', NULL, 'If not empty, number of days used when deleting unaccepted list share invites', 'Integer') }); + $dbh->do( + q{INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('PurgeListShareInvitesOlderThan', '14', NULL, 'If not empty, number of days used when deleting unaccepted list share invites', 'Integer') } + ); }, }; -- 2.39.5