diff options
| -rw-r--r-- | perl-install/pkgs.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index c18755d81..f3b1c34cc 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -240,8 +240,14 @@ sub packagesToInstall { sub allMediums { my ($packages) = @_; - sort { $a <=> $b } keys %{$packages->{mediums}}; + sort { + #- put supplementary media at the end + my @x = ($a, $b); + foreach (@x) { /(\d+)s/ and $_ = 100 + $1 } + $x[0] <=> $x[1]; + } keys %{$packages->{mediums}}; } + sub mediumDescr { my ($packages, $medium_name) = @_; $packages->{mediums}{$medium_name}{descr}; |