summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-09-24 09:06:52 +0000
committerFrancois Pons <fpons@mandriva.com>2001-09-24 09:06:52 +0000
commit09ee758cac28e5b6f3b8942426f1287e7eb717b8 (patch)
treea4feec4abc56a7b172d3260d81d42701fb974bca
parent3fe973db54e901674cb9a2523ff2be7ff561d2d3 (diff)
downloaddrakx-09ee758cac28e5b6f3b8942426f1287e7eb717b8.tar
drakx-09ee758cac28e5b6f3b8942426f1287e7eb717b8.tar.gz
drakx-09ee758cac28e5b6f3b8942426f1287e7eb717b8.tar.bz2
drakx-09ee758cac28e5b6f3b8942426f1287e7eb717b8.tar.xz
drakx-09ee758cac28e5b6f3b8942426f1287e7eb717b8.zip
sort mediums by number, in allMediums() else they will be in hash keys orders in
install_steps_interactive::chooseCD().
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index f44fff788..3d37b0689 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -205,7 +205,7 @@ sub packagesToInstall {
sub allMediums {
my ($packages) = @_;
- keys %{$packages->{mediums}};
+ sort { $a <=> $b } keys %{$packages->{mediums}};
}
sub mediumDescr {
my ($packages, $medium) = @_;