diff options
| -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, [ { |