From 09ee758cac28e5b6f3b8942426f1287e7eb717b8 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 24 Sep 2001 09:06:52 +0000
Subject: sort mediums by number, in allMediums() else they will be in hash
 keys orders in install_steps_interactive::chooseCD().

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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) = @_;
-- 
cgit v1.2.1