From ed6a9183e6c78942dc11377c15366323ac08714f Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Thu, 24 Mar 2011 23:20:57 +0000 Subject: Port to new Youri API --- lib/Youri/Submit/Check/Deps.pm | 12 ++++++------ 1 file 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; } -- cgit v1.2.1