From 4fa9f3c67a8a8708eb4bdebec6eccfebde0feecb Mon Sep 17 00:00:00 2001 From: Hammat Wele Date: Thu, 7 Dec 2023 15:06:50 +0000 Subject: [PATCH] Bug 33317: (follow-up) Perltidy --- installer/data/mysql/atomicupdate/bug_33317.pl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/installer/data/mysql/atomicupdate/bug_33317.pl b/installer/data/mysql/atomicupdate/bug_33317.pl index 58858e4e27..4ea2cb4975 100644 --- a/installer/data/mysql/atomicupdate/bug_33317.pl +++ b/installer/data/mysql/atomicupdate/bug_33317.pl @@ -1,13 +1,15 @@ use Modern::Perl; return { - bug_number => "33317", + bug_number => "33317", description => "Add new system preference OpacMetaRobots", - 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 ('OpacMetaRobots','','','Improve search engine crawling.', 'Multiple') }); + $dbh->do( + q{INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES ('OpacMetaRobots','','','Improve search engine crawling.', 'Multiple') } + ); say $out "Added system preference 'OpacMetaRobots'"; }, -- 2.34.1