diff options
author | Norbert Preining <preining@logic.at> | 2012-05-09 00:15:38 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2012-05-09 00:15:38 +0000 |
commit | d9d754c635a627700daccf7290cb4c5ab0cba821 (patch) | |
tree | 646b0ddfe03d41a30a8c0fc36f4b0f95280d05b7 /Master/texmf/scripts/texlive/tlmgr.pl | |
parent | 9258e271a96545e80cceeae9e95eaeb6a6fc7c4f (diff) |
more work on tlmgr gui location handling
git-svn-id: svn://tug.org/texlive/trunk@26265 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts/texlive/tlmgr.pl')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index f2e1d9e1649..647eb29510d 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -3493,6 +3493,11 @@ sub show_list_of_packages { sub array_to_repository { my %r = @_; my @ret; + my @k = keys %r; + if ($#k == 0) { + # only one repo, don't write any tag + return $r{$k[0]}; + } for my $k (keys %r) { my $v = $r{$k}; if ($k eq $v) { @@ -3506,7 +3511,13 @@ sub array_to_repository { sub repository_to_array { my $r = shift; my %r; - for my $rr (split ' ', $r) { + my @repos = split ' ', $r; + if ($#repos == 0) { + # only one repo, this is the main one! + $r{'main'} = $repos[0]; + return %r; + } + for my $rr (@repos) { if ($rr =~ m/^([^#]+)#(.*)$/) { $r{$2} = $1; } else { |