diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-12 12:12:20 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-12 12:12:20 +0000 |
| commit | 442333774fba5156a1ef20ca7bb4ac75adafdc81 (patch) | |
| tree | 706dc38ec21fa1f34a1cf427c601b10ba1e1e8a6 | |
| parent | 19c3522c75e498da640f603d5066bd7bb098318d (diff) | |
| download | perl-URPM-442333774fba5156a1ef20ca7bb4ac75adafdc81.tar perl-URPM-442333774fba5156a1ef20ca7bb4ac75adafdc81.tar.gz perl-URPM-442333774fba5156a1ef20ca7bb4ac75adafdc81.tar.bz2 perl-URPM-442333774fba5156a1ef20ca7bb4ac75adafdc81.tar.xz perl-URPM-442333774fba5156a1ef20ca7bb4ac75adafdc81.zip | |
cleanup
| -rw-r--r-- | URPM/Resolve.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 31c462d..98bf925 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -506,8 +506,8 @@ sub set_rejected { #- keep track of what causes closure. if ($options{from}) { - my %d; @d{@{$rv->{closure}{$options{from}->fullname}{unsatisfied} ||= []}} = (); - push @{$rv->{closure}{$options{from}->fullname}{unsatisfied}}, grep { ! exists $d{$_} } @{$options{why}}; + my $unsatisfied = $rv->{closure}{$options{from}->fullname}{unsatisfied} ||= []; + @$unsatisfied = uniq(@$unsatisfied, @{$options{why}}); } #- set removed and obsoleted level. |