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");