sub open_problem {
my ($contest, $problem, $owner, $time) = @_;
my $ct = contest_entry($contest);
sub open_problem {
my ($contest, $problem, $owner, $time) = @_;
my $ct = contest_entry($contest);
- return unless $ct->{id} && $time >= $ct->{start} && $time < $ct->{stop};
- eval { db->insert(opens => {
+ return unless $ct->{id} && $time >= $ct->{start} && $time < $ct->{stop}; ## no critic (ProhibitNegativeExpressionsInUnlessAndUntilConditions)
+ eval { db->insert(opens => { ## no critic (RequireCheckingReturnValueOfEval)