From 366b9ecabebd98a81a32a642ec27d990d13fc26a Mon Sep 17 00:00:00 2001
From: Hammat Wele <hammat.wele@inlibro.com>
Date: Thu, 4 Jan 2024 13:28:10 +0000
Subject: [PATCH] Bug 33317: (follow-up) Perltidy

Signed-off-by: Owen Leonard <oleonard@myacpl.org>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 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.5