sub check_job{
my $meta = shift;
if (defined $meta->{results}) {
- delete $meta->{results}[$_]{time} for keys %{$meta->{results}};
+ delete $meta->{results}[$_]{time} for keys @{$meta->{results}};
}
is $meta->{result}, $meta->{expected_result}, "Result is correct";
is $meta->{result_text}, $meta->{expected_result_text}, "Result text is correct";