Make perlcritic happy
authorMarius Gavrilescu <marius@ieval.ro>
Sat, 31 Oct 2015 23:43:06 +0000 (23:43 +0000)
committerMarius Gavrilescu <marius@ieval.ro>
Sat, 31 Oct 2015 23:43:06 +0000 (23:43 +0000)
lib/Gruntmaster/Daemon.pm
lib/Gruntmaster/Daemon/Format.pm
lib/Gruntmaster/Daemon/Judge/Points.pm
t/perlcriticrc

index 03810ba..a726219 100644 (file)
@@ -121,7 +121,7 @@ sub process_job {
        $meta->{timeout} = $timeout_override if defined $timeout_override;
        $meta->{tests} = decode_json $pb->{tests} if $meta->{runner} eq 'File';
        $job->{contest} &&= contest_entry($job->{contest});
-       delete $meta->{precnt} unless $job->{contest} && $job->{contest}{started} && !$job->{contest}{finished};
+       delete $meta->{precnt} unless $job->{contest} && $job->{contest}{started} && !$job->{contest}{finished}; ## no critic (ProhibitNegativeExpressionsInUnlessAndUntilConditions)
        $meta->{testcnt} = $meta->{precnt} if $meta->{precnt};
 
        $meta->{files}{ver} = {
index 7b6f77b..d5560db 100644 (file)
@@ -45,7 +45,7 @@ sub execlist_finish {
        my ($vm, $kill) = @_;
 
        if ($vm{$vm}) {
-               warn "Cannot kill VM" if $kill;
+               warn "Cannot kill VM\n" if $kill;
                $vm{$vm}->expect(5, '# ');
        } else {
                kill KILL => $pid{$vm} if $kill;
index 66286b2..26c19f9 100644 (file)
@@ -13,7 +13,7 @@ our $VERSION = '5999.000_004';
 ##################################################
 
 sub judge{
-       no warnings qw/numeric/; ## no critic (ProhibitNoWarnings)
+       no warnings qw/numeric/;
        get_logger->trace("Judging results: @_");
        my $points = sum 0, grep { !ref } @_;
        $points == 100 ? (result => AC, result_text => 'Accepted') : (result => REJ, result_text => "$points points", points => $points)
index 96564fe..40b151e 100644 (file)
@@ -7,8 +7,11 @@ severity = 1
 [-Documentation::PodSpelling]
 [-Documentation::RequirePodLinksIncludeText]
 [-InputOutput::RequireBracedFileHandleWithPrint]
+[-Modules::ProhibitAutomaticExportation]
 [-References::ProhibitDoubleSigils]
 [-RegularExpressions::ProhibitEnumeratedClasses]
+[-RegularExpressions::ProhibitUnusualDelimiters]
+[-RegularExpressions::RequireBracesForMultiline]
 [-RegularExpressions::RequireLineBoundaryMatching]
 [-Subroutines::RequireFinalReturn]
 [-ValuesAndExpressions::ProhibitConstantPragma]
@@ -33,3 +36,6 @@ script_sections = NAME | SYNOPSIS | DESCRIPTION | AUTHOR | COPYRIGHT AND LICENSE
 [Subroutines::RequireArgUnpacking]
 short_subroutine_statements = 5
 allow_subscripts = 1
+
+[TestingAndDebugging::ProhibitNoWarnings]
+allow_with_category_restriction = 1
This page took 0.03307 seconds and 4 git commands to generate.