From 4600abdcc400eee38dd54a6991377a22883b0d8d Mon Sep 17 00:00:00 2001 From: Hammat Wele Date: Thu, 4 Jan 2024 13:28:10 +0000 Subject: [PATCH] Bug 33317: (follow-up) Perltidy Signed-off-by: Owen Leonard Signed-off-by: Lucas Gass --- installer/data/mysql/atomicupdate/bug_33317.pl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) mode change 100644 => 100755 installer/data/mysql/atomicupdate/bug_33317.pl diff --git a/installer/data/mysql/atomicupdate/bug_33317.pl b/installer/data/mysql/atomicupdate/bug_33317.pl old mode 100644 new mode 100755 index 58858e4e27..0df65e2e6e --- a/installer/data/mysql/atomicupdate/bug_33317.pl +++ b/installer/data/mysql/atomicupdate/bug_33317.pl @@ -1,14 +1,16 @@ 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'"; }, -}; \ No newline at end of file +}; -- 2.39.2