Adapt to DB format changes

[deb/packages.git] / lib / Packages / Search.pm

diff --git a/lib/Packages/Search.pm b/lib/Packages/Search.pm
index 694528434f5b99083ba028c3c18c27ee0e32fcdb..37f3996e80bd71477ba2c5ad8d8dd5ad39ac4e7d 100644 (file)
--- a/lib/Packages/Search.pm
+++ b/lib/Packages/Search.pm
@@ -489,9 +489,11 @@ sub find_binaries {
     foreach (split /\000/o, $bins) {
        my @data = split /\s/, $_, 5;
 
+       debug( "find_binaries: considering @data", 3 );
        if (($data[0] eq $archive)
            && ($data[1] eq $suite)) {
            $bins{$data[2]}++;
+           debug( "find_binaries: using @data", 3 );
        }
     }