summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts/texlive/tlmgr.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-05-09 00:15:38 +0000
committerNorbert Preining <preining@logic.at>2012-05-09 00:15:38 +0000
commitd9d754c635a627700daccf7290cb4c5ab0cba821 (patch)
tree646b0ddfe03d41a30a8c0fc36f4b0f95280d05b7 /Master/texmf/scripts/texlive/tlmgr.pl
parent9258e271a96545e80cceeae9e95eaeb6a6fc7c4f (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-xMaster/texmf/scripts/texlive/tlmgr.pl13
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 {