+sub read_entry_simple {
+ my ($hash, $key, $suite) = @_;
+ my $result = $hash->{$key} || '';
+ foreach (split /\000/o, $result) {
+ my @data = split ( /\s/o, $_, 8 );
+ debug( "Considering entry ".join( ':', @data), 2);
+ if ($data[1] eq $suite) {
+ debug( "Using entry ".join( ':', @data), 2);
+ return \@data;
+ }
+ }
+}