From e823573534a62cbb4c670c41d54c5434686e707f Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Mon, 4 Apr 2022 22:57:24 +0300
Subject: [PATCH] =?UTF-8?q?=D0=90=D0=BA=D1=82=D1=83=D0=B0=D0=BB=D0=B8?=
 =?UTF-8?q?=D0=B7=D0=B8=D1=80=D0=BE=D0=B2=D0=B0=D0=BD=20=D1=81=D0=BF=D0=B8?=
 =?UTF-8?q?=D1=81=D0=BE=D0=BA=20perlcritic=20policies,=20=D0=B8=D1=81?=
 =?UTF-8?q?=D0=BF=D1=80=D0=B0=D0=B2=D0=BB=D0=B5=D0=BD=D1=8B=20=D0=BC=D0=B8?=
 =?UTF-8?q?=D0=BD=D0=BE=D1=80=D0=BD=D1=8B=D0=B5=20=D0=B7=D0=B0=D0=BC=D0=B5?=
 =?UTF-8?q?=D1=87=D0=B0=D0=BD=D0=B8=D1=8F=20critic-=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .perlcriticrc      | 4 ++++
 bin/aleesa-phrases | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/.perlcriticrc b/.perlcriticrc
index 815b127..d9b4ab4 100644
--- a/.perlcriticrc
+++ b/.perlcriticrc
@@ -1,4 +1,5 @@
 #!/usr/bin/env perlcritic
+
 # Задействованные модули критика:
 #
 # Perl::Critic::More
@@ -9,6 +10,9 @@
 # Perl::Critic::Policy::CompileTime
 # Perl::Critic::Policy::ProhibitImplicitImport
 # Perl::Critic::Policy::Dynamic::NoIndirect
+# Perl::Critic::StricterSubs
+# Perl::Critic::Policy::ProhibitImplicitImport
+# Perl::Critic::Policy::CodeLayout::RequireUseUTF8
 
 [-ControlStructures::ProhibitUnlessBlocks]
 # oh. c'mon. just a little bit
diff --git a/bin/aleesa-phrases b/bin/aleesa-phrases
index 27a4d5b..d6a3e17 100755
--- a/bin/aleesa-phrases
+++ b/bin/aleesa-phrases
@@ -83,8 +83,8 @@ if ($UID == 0) {
 			make_path (
 					$logdir, {
 							uid   => $uid,
-							group => $gid
-					}
+							group => $gid,
+					},
 			) or die "Unable to create $logdir: $OS_ERROR\n";
 		}
 	}
@@ -115,7 +115,7 @@ my $apath = abs_path $PROGRAM_NAME;
 unless (defined $apath) {
 	$log->fatal ("[FATAL] Unable to get abs_path: $OS_ERROR\n");
 	exit 1;
-};
+}
 
 my $pidfile = sprintf '%s/%s.pid', $piddir, basename $apath;
 $log->info ("[INFO] Creating pidfile at $pidfile");