summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/pkgs.pm8
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};