return [ $virt{$suite} ] unless defined $result;
foreach (split /\000/o, $result) {
my @data = split ( /\s/o, $_, 8 );
debug( "use entry: @data", 2 ) if DEBUG && $data[1] eq $suite;
return [ $virt{$suite}, @data ] if $data[1] eq $suite;
}
return [ $virt{$suite} ] unless defined $result;
foreach (split /\000/o, $result) {
my @data = split ( /\s/o, $_, 8 );
debug( "use entry: @data", 2 ) if DEBUG && $data[1] eq $suite;
return [ $virt{$suite}, @data ] if $data[1] eq $suite;
}