r15191 - /scripts/perl-5.10-transition/find-rebuild-order

[ntyni at users.alioth.debian.org]

Author: ntyni
Date: Wed Feb 20 13:33:27 2008
New Revision: 15191

URL: http://svn.debian.org/wsvn/?sc=1&rev=15191
Log:
handle provided dependencies better

Modified:
    scripts/perl-5.10-transition/find-rebuild-order

Modified: scripts/perl-5.10-transition/find-rebuild-order
URL: http://svn.debian.org/wsvn/scripts/perl-5.10-transition/find-rebuild-order?rev=15191&op=diff
==============================================================================
--- scripts/perl-5.10-transition/find-rebuild-order (original)
+++ scripts/perl-5.10-transition/find-rebuild-order Wed Feb 20 13:33:27 2008
@@ -336,9 +336,15 @@
 sub lookup_dependencies {
     my $pkg = shift;
     my $blist = $bincache->{$pkg};
-    if (!$blist || !$blist->{VersionList}) {
-        debug("$pkg is not a real package, skipping");
+    if (!$blist) {
+        debug("$pkg not found, skipping");
         return ();
+    } elsif (!$blist->{VersionList}) {
+        if (!$blist->{ProvidesList}) {
+            debug("$pkg is not a real versioned package and doesn't provide anything, skipping");
+            return ();
+        }
+        return lookup_dependencies($blist->{ProvidesList}[0]{OwnerPkg}{Name});
     };
 
     my $b = bin_latest($blist);