diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-04-01 16:06:39 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-04-01 16:06:39 +0000 |
| commit | 72faa98d129b97839ec7b7f5e0175a3908da5ed8 (patch) | |
| tree | 5d3591d053309e9be6652ee4bcf476404f420a56 | |
| parent | 06c4ef519e226f3dcef7a92ba424da576b681514 (diff) | |
| download | drakx-72faa98d129b97839ec7b7f5e0175a3908da5ed8.tar drakx-72faa98d129b97839ec7b7f5e0175a3908da5ed8.tar.gz drakx-72faa98d129b97839ec7b7f5e0175a3908da5ed8.tar.bz2 drakx-72faa98d129b97839ec7b7f5e0175a3908da5ed8.tar.xz drakx-72faa98d129b97839ec7b7f5e0175a3908da5ed8.zip | |
Sort CDs according to CD numbers, not alphabetically
| -rw-r--r-- | perl-install/install_any.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 211a340e6..bf35ae788 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -385,7 +385,11 @@ sub ask_if_suppl_media { Do you have a supplementary installation media to configure?", - join ", ", sort uniq(map { $_->{descr} } values %{$o->{packages}{mediums}}))); + join ", ", uniq(sort { + (my $x) = $a =~ /CD(\d+)/; + (my $y) = $b =~ /CD(\d+)/; + $x && $y ? $x <=> $y : $a cmp $b + } map { $_->{descr} } values %{$o->{packages}{mediums}}))); $o->ask_from( '', $msg, [ { |