diff options
author | Francois Pons <fpons@mandriva.com> | 2003-06-05 13:58:28 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2003-06-05 13:58:28 +0000 |
commit | 0ec1179e51152c245284549fd3395c08ad542412 (patch) | |
tree | bdcefbcd44025ab0530b161e7f81fa4d70e84523 /urpmi | |
parent | c6959350b3843cd98a9c2ed125aa60f0008791f8 (diff) | |
download | urpmi-0ec1179e51152c245284549fd3395c08ad542412.tar urpmi-0ec1179e51152c245284549fd3395c08ad542412.tar.gz urpmi-0ec1179e51152c245284549fd3395c08ad542412.tar.bz2 urpmi-0ec1179e51152c245284549fd3395c08ad542412.tar.xz urpmi-0ec1179e51152c245284549fd3395c08ad542412.zip |
4.3-13mdk
Diffstat (limited to 'urpmi')
-rwxr-xr-x | urpmi | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -409,21 +409,17 @@ if (@ask_unselect) { } } -foreach (sort { $a cmp $b } keys %{$state->{rejected} || {}}) { - my $v = $state->{rejected}{$_}; - print STDERR "<<$_>> removed=$v->{removed}, obsoleted=$v->{obsoleted}, size=$v->{size};\n"; -} my @ask_remove = grep { $state->{rejected}{$_}{removed} && !$state->{rejected}{$_}{obsoleted} } keys %{$state->{rejected} || {}}; if (@ask_remove) { unless ($auto) { my $list = join "\n", map { my ($from) = keys %{$state->{rejected}{$_}{closure}}; my ($whyk) = keys %{$state->{rejected}{$_}{closure}{$from}}; my ($whyv) = $state->{rejected}{$_}{closure}{$from}{$whyk}; - my $frompkg = $urpm->{depslist}[$from]; + my $frompkg = $urpm->search($from, strict_fullname => 1); my $s; for ($whyk) { /old_requested/ and - $s .= N("in order to install %s", $frompkg ? $frompkg->fullname : $from); + $s .= N("in order to install %s", $frompkg ? scalar $frompkg->fullname : $from); /unsatisfied/ and do { foreach (@$whyv) { $s and $s .= ', '; |