diff options
author | Pascal Terjan <pterjan@mageia.org> | 2011-03-24 23:20:57 +0000 |
---|---|---|
committer | Pascal Terjan <pterjan@mageia.org> | 2011-03-24 23:20:57 +0000 |
commit | ed6a9183e6c78942dc11377c15366323ac08714f (patch) | |
tree | 838a007a1679bddceb442b7d269746ac281a2add /lib/Youri/Submit | |
parent | 3264befbb510b7ba72e516c404ad54d6361c2973 (diff) | |
download | mga-youri-submit-ed6a9183e6c78942dc11377c15366323ac08714f.tar mga-youri-submit-ed6a9183e6c78942dc11377c15366323ac08714f.tar.gz mga-youri-submit-ed6a9183e6c78942dc11377c15366323ac08714f.tar.bz2 mga-youri-submit-ed6a9183e6c78942dc11377c15366323ac08714f.tar.xz mga-youri-submit-ed6a9183e6c78942dc11377c15366323ac08714f.zip |
Port to new Youri API
Diffstat (limited to 'lib/Youri/Submit')
-rw-r--r-- | lib/Youri/Submit/Check/Deps.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Youri/Submit/Check/Deps.pm b/lib/Youri/Submit/Check/Deps.pm index 3d5d235..0adcf37 100644 --- a/lib/Youri/Submit/Check/Deps.pm +++ b/lib/Youri/Submit/Check/Deps.pm @@ -29,16 +29,16 @@ sub resolvedep { my $require = $_; my $notfound = 1; foreach my $provide (@provides) { - next unless $provide->[Youri::Package::DEPENDENCY_NAME] eq $require->[Youri::Package::DEPENDENCY_NAME]; - if ($require->[Youri::Package::DEPENDENCY_RANGE]) { - next unless $package->check_ranges_compatibility($provide->[Youri::Package::DEPENDENCY_RANGE], $require->[Youri::Package::DEPENDENCY_RANGE]); + next unless $provide->[Youri::Package::Relationship::NAME] eq $require->[Youri::Package::Relationship::NAME]; + if ($require->[Youri::Package::Relationship::RANGE]) { + next unless $package->check_ranges_compatibility($provide->[Youri::Package::Relationship::RANGE], $require->[Youri::Package::Relationship::RANGE]); } $notfound = 0; } - if ($notfound && $require->[Youri::Package::DEPENDENCY_NAME] =~ m|/|) { + if ($notfound && $require->[Youri::Package::Relationship::NAME] =~ m|/|) { foreach my $file ($package->get_files()) { - next unless $file eq $require->[Youri::Package::DEPENDENCY_NAME]; + next unless $file eq $require->[Youri::Package::Relationship::NAME]; $notfound = 0; last; } @@ -48,7 +48,7 @@ sub resolvedep { }; $media->traverse_headers($index); foreach my $require (@requires) { - push (@errors, "Unresolved dep on " . $require->[Youri::Package::DEPENDENCY_NAME] . " " . $require->[Youri::Package::DEPENDENCY_RANGE]); + push (@errors, "Unresolved dep on " . $require->[Youri::Package::Relationship::NAME] . " " . $require->[Youri::Package::Relationship::RANGE]); } return @errors; } |