From 62827bdad31e9dbe895aaa5f44f6d02c50f9c6e4 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 3 Jul 2002 12:40:57 +0000 Subject: 0.06-1mdk --- URPM/Build.pm | 6 +++--- URPM/Resolve.pm | 3 +-- 2 files changed, 4 insertions(+), 5 deletions(-) (limited to 'URPM') diff --git a/URPM/Build.pm b/URPM/Build.pm index 39e8481..9e60c02 100644 --- a/URPM/Build.pm +++ b/URPM/Build.pm @@ -335,9 +335,9 @@ sub build_hdlist { $split = $options{split} || 400000; open B, "| " . ($ENV{LD_LOADER} || '') . " packdrake -b${ratio}ds '$options{hdlist}' '$dir' $split"; - foreach (@{$urpm->{depslist}}[$start .. $end]) { - my $filename = $_->fullname; - "$filename.rpm" ne $_->filename && $_->filename =~ /([^\/]*)\.rpm$/ and $filename .= ":$1"; + foreach my $pkg (@{$urpm->{depslist}}[$start .. $end]) { + my $filename = $pkg->fullname; + "$filename.rpm" ne $pkg->filename && $pkg->filename =~ /([^\/]*)\.rpm$/ and $filename .= ":$1"; -s "$dir/$filename" or die "bad header $dir/$filename\n"; print B "$filename\n"; } diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 820eb3c..afc7864 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -267,8 +267,7 @@ sub resolve_requested { if (my ($name) =~ /^([^\s\[]*)/) { foreach (keys %{$urpm->{provides}{$name} || {}}) { my $p = $urpm->{depslist}[$_]; - ($pkg->flag_requested || $pkg->flag_required) && $pkg->flag_upgrade and - $state->{ask_unselect}{$p->id}{$pkg->id}; + $pkg->flag_selected and $state->{ask_unselect}{$p->id}{$pkg->id}; } } } -- cgit v1.2.1