X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=lib%2FPackages%2FSearch.pm;h=e863717b97b2e795683a6dd8850bb8f8a84f8f07;hb=202eb3b349348d04e15926777d7a3b7f8526c557;hp=b2f4e2c700eeaf9a8b99009eb9174e81a0e37402;hpb=11b8d005fe970a30cb426946bc7335643a7528f0;p=deb%2Fpackages.git

diff --git a/lib/Packages/Search.pm b/lib/Packages/Search.pm
index b2f4e2c..e863717 100644
--- a/lib/Packages/Search.pm
+++ b/lib/Packages/Search.pm
@@ -387,6 +387,9 @@ sub read_entry_simple {
     my %virt = split /\01/o, $virt; 
     debug( "read_entry_simple: key=$key, archives=".
 	   join(" ",(keys %$archives)).", suite=$suite", 1) if DEBUG;
+    # FIXME: not all of the 2^4=16 combinations of empty(results),
+    # empty(virt{suite}), empty(fb_result), empty(virt{fb_suite}) are dealt
+    # with correctly, but it's adequate enough for now
     return [ $virt{$suite} ] unless defined $result;
     foreach (split /\000/o, $result) {
 	my @data = split ( /\s/o, $_, 8 );