diff options
author | Norbert Preining <preining@logic.at> | 2014-11-14 00:18:08 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2014-11-14 00:18:08 +0000 |
commit | 23626b7057ce159c158784d3159e09385ca8c2ab (patch) | |
tree | 37d35903c0f7b8ce592d01a730fe42ae46f0c737 /Master/tlpkg/installer/install-menu-text.pl | |
parent | 3e547f01cff20101db9b8b4b211fcf7adfe7191f (diff) |
present platforms in OS on ARCH order
git-svn-id: svn://tug.org/texlive/trunk@35578 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 88da0e2ecbe..bd0fdaa098c 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -268,13 +268,14 @@ sub binary_menu { push @binaries, $1; } } - @binaries=sort(@binaries); + + @binaries=sort TeXLive::TLUtils::sort_archs @binaries; foreach my $binary (@binaries) { - printf " %s %s %-16s %s\n", $keys[$index], + printf " %s %s %s (%s)\n", $keys[$index], button($vars{"binary_$binary"}), - "$binary", - platform_desc($binary); + platform_desc($binary), + "$binary"; $keyval{"$keys[$index]"} = "binary_$binary"; ++$index; } |