diff options
author | Pascal Terjan <pterjan@mageia.org> | 2017-10-03 19:13:31 +0100 |
---|---|---|
committer | Pascal Terjan <pterjan@mageia.org> | 2017-10-03 21:05:27 +0100 |
commit | 809aafa691fda512945b550c33b2398f297cd6a4 (patch) | |
tree | f16a49a5aa34915f48800dc6668c5c1cb56a86a5 /iurt | |
parent | 57c5285861e5863038b8963ec02217e28c14c290 (diff) | |
download | iurt-809aafa691fda512945b550c33b2398f297cd6a4.tar iurt-809aafa691fda512945b550c33b2398f297cd6a4.tar.gz iurt-809aafa691fda512945b550c33b2398f297cd6a4.tar.bz2 iurt-809aafa691fda512945b550c33b2398f297cd6a4.tar.xz iurt-809aafa691fda512945b550c33b2398f297cd6a4.zip |
Kill check_needed
It was checking if some buildrequires were not yet built
but we are not using iurt like that anymore so all this
code is untested and mostly broken
Diffstat (limited to 'iurt')
-rwxr-xr-x | iurt | 49 |
1 files changed, 1 insertions, 48 deletions
@@ -1085,51 +1085,6 @@ exit(); # # -sub check_needed { - my ($srpm, $cache, $provides) = @_; - if (!defined $cache->{needed}{$srpm} && !ref $cache->{needed}{$srpm}) { return 1 } - my $ok = 1; - # migrate old cache format - my $ent = $cache->{needed}{$srpm}; - if (ref $ent eq 'ARRAY') { - my $table = $ent; - $cache->{needed}{$srpm} = {}; - foreach my $t (@$table) { - my ($missing, $version, $maint) = @$t; - $cache->{needed}{$srpm}{$missing} = { - version => $version, - maint => $maint - }; - } - $ent = $cache->{needed}{$srpm}; - } - foreach my $name (keys %$ent) { - my ($package, $version, $maint) = @{$ent->{$name}}{'package', 'version', 'maint'}; - # if packages does not exist anymore, it may have been rebuild, then try to recompute the build dependencies - last if $package && !$provides->{$package}; - my $p_version = $provides->{$name}; - if ($p_version) { - next if $version == $p_version; - next if URPM::ranges_overlap($version, $p_version); - } - $ok = 0; - if ($version) { - $ent->{$name}{version} = $version; - } - my $v = $version; - if ($package) { - plog("ERROR: $srpm needs package $package which requires missing $name $v to be compiled."); - } else { - plog("ERROR: $srpm needs $name $v to be compiled."); - } - # try to recompile it once in a while - last if $cache->{warning}{"install_deps_$srpm"}{$maint}++ % 72; - return 1; - } - delete $cache->{needed}{$srpm} if $ok; - $ok; -} - sub process_queue { my ($config, $run, $wrong_rpm, $o_quiet) = @_; return if !$run->{upload} && $o_quiet; @@ -1343,10 +1298,8 @@ sub search_packages { if ($config->{unwanted_packages} && $srpm =~ /$config->{unwanted_packages}/) { next } my $ok = 1; if (check_version($run, $srpm, $srpm_version)) { - my $check_needed = check_needed($srpm, $cache, $provides); - $run->{status}{$srpm} = 'missing_buildrequires' if !$check_needed; -f "$dir/$srpm" or next; - if (!$cache->{queue}{$srpm} && $check_needed) { + if (!$cache->{queue}{$srpm}) { if (!check_arch("$dir/$srpm", $run{my_arch})) { $run->{status}{$srpm} = 'not_on_this_arch'; write_status($local_spool, \%run, $srpm); |