aleesa-bot/aleesa-phrases
Archived
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Актуализирован список perlcritic policies, исправлены минорные замечания critic-а

Browse Source
This commit is contained in:
eleksir
2022-04-04 22:57:24 +03:00
parent ba69f9d9df
commit e823573534
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
.perlcriticrc
View File

@@ -1,4 +1,5 @@
#!/usr/bin/env perlcritic #!/usr/bin/env perlcritic
# Задействованные модули критика: # Задействованные модули критика:
# #
# Perl::Critic::More # Perl::Critic::More
@@ -9,6 +10,9 @@
# Perl::Critic::Policy::CompileTime # Perl::Critic::Policy::CompileTime
# Perl::Critic::Policy::ProhibitImplicitImport # Perl::Critic::Policy::ProhibitImplicitImport
# Perl::Critic::Policy::Dynamic::NoIndirect # Perl::Critic::Policy::Dynamic::NoIndirect
# Perl::Critic::StricterSubs
# Perl::Critic::Policy::ProhibitImplicitImport
# Perl::Critic::Policy::CodeLayout::RequireUseUTF8
[-ControlStructures::ProhibitUnlessBlocks] [-ControlStructures::ProhibitUnlessBlocks]
# oh. c'mon. just a little bit # oh. c'mon. just a little bit

6
bin/aleesa-phrases
View File

@@ -83,8 +83,8 @@ if ($UID == 0) {
make_path ( make_path (
$logdir, { $logdir, {
uid => $uid, uid => $uid,
group => $gid group => $gid,
} },
) or die "Unable to create $logdir: $OS_ERROR\n"; ) or die "Unable to create $logdir: $OS_ERROR\n";
} }
} }
@@ -115,7 +115,7 @@ my $apath = abs_path $PROGRAM_NAME;
unless (defined $apath) { unless (defined $apath) {
$log->fatal ("[FATAL] Unable to get abs_path: $OS_ERROR\n"); $log->fatal ("[FATAL] Unable to get abs_path: $OS_ERROR\n");
exit 1; exit 1;
}; }
my $pidfile = sprintf '%s/%s.pid', $piddir, basename $apath; my $pidfile = sprintf '%s/%s.pid', $piddir, basename $apath;
$log->info ("[INFO] Creating pidfile at $pidfile"); $log->info ("[INFO] Creating pidfile at $pidfile");