diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-07-18 11:54:18 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-10-04 09:25:34 +0200 |
| commit | eab0b8fad2892d12aa3976678638db455a611e31 (patch) | |
| tree | 84836edcebe682ccdef80bd9a49062583b368c40 /urpm | |
| parent | 54cf0644e689d0ed007fc3bf918212f1f493231a (diff) | |
| download | urpmi-eab0b8fad2892d12aa3976678638db455a611e31.tar urpmi-eab0b8fad2892d12aa3976678638db455a611e31.tar.gz urpmi-eab0b8fad2892d12aa3976678638db455a611e31.tar.bz2 urpmi-eab0b8fad2892d12aa3976678638db455a611e31.tar.xz urpmi-eab0b8fad2892d12aa3976678638db455a611e31.zip | |
adapt to perl-5.18's random hash keys ordering
(translate_why_removed_one) ensure we got the right reason
(testsuite) adapt to new URPM predictible behaviour
it was previously relying on the following fixed hash order:
$ perl -MData::Dumper -e 'warn Dumper [ keys {'rr1', 'rr1', 'rr2',
'rr2'} ]; \
warn Dumper [ keys {'bb1', 'bb1', 'bb2', 'bb2-1'} ]'
$VAR1 = [
'rr2',
'rr1'
];
$VAR1 = [
'bb1',
'bb2'
];
Diffstat (limited to 'urpm')
| -rw-r--r-- | urpm/select.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/urpm/select.pm b/urpm/select.pm index 507f82c0..03259f71 100644 --- a/urpm/select.pm +++ b/urpm/select.pm @@ -694,7 +694,7 @@ sub translate_why_removed_one { my $closure = rejected_closure($state, $fullname) or return $fullname; my ($from) = keys %$closure; - my ($whyk) = keys %{$closure->{$from}}; + my ($whyk) = sort { $b ne 'avoid' } keys %{$closure->{$from}}; my $whyv = $closure->{$from}{$whyk}; my $frompkg = $urpm->search($from, strict_fullname => 1); my $s = do { |