fix result for legacy api

This commit is contained in:
Colin Gagnaire 2019-07-11 13:23:44 +02:00
parent add1e8a8c2
commit cf402c85fe
1 changed files with 1 additions and 0 deletions

View File

@ -142,6 +142,7 @@ sub output_perf {
my $result = 'UNKNOWN';
$result = $errors_num{$options{result}} if ($options{result} =~ /[0-3]/);
$result = $options{result}if ($options{result} =~ /\w+/);
my %result = (
code => $result,