r15191 - /scripts/perl-5.10-transition/find-rebuild-order
ntyni at users.alioth.debian.org
ntyni at users.alioth.debian.org
Wed Feb 20 13:33:29 UTC 2008
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);
More information about the Pkg-perl-cvs-commits
mailing list