X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=lib%2FPackages%2FSearch.pm;h=b545dbc5fa544c77bb07a59e1a247903c29e3fa6;hb=264b1245548e5c5494778a813e5e48897168b008;hp=a7a76d072bc69a9038a5d95db4eb6c9741455ba6;hpb=87124f967c3da82618899b3d2c114981b12ffb7f;p=deb%2Fpackages.git diff --git a/lib/Packages/Search.pm b/lib/Packages/Search.pm index a7a76d0..b545dbc 100644 --- a/lib/Packages/Search.pm +++ b/lib/Packages/Search.pm @@ -361,16 +361,23 @@ sub read_entry { read_entry_all( $hash, $key, $results, \@non_results, $opts ); } sub read_entry_simple { - my ($hash, $key, $suite) = @_; + my ($hash, $key, $archives, $suite) = @_; my $result = $hash->{$key} || ''; + my @data_fuzzy; 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; - } + if ($archives->{$data[0]}) { + debug( "Using entry ".join( ':', @data), 2); + return \@data; + } elsif ($data[0] eq 'us') { + debug( "Fuzzy entry ".join( ':', @data), 2); + @data_fuzzy = @data; + } + } } + return \@data_fuzzy; } sub read_src_entry { my ($hash, $key, $results, $opts) = @_;