diff options
Diffstat (limited to 'Master/texmf-dist')
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index b8cbef168ae..e906af35ee6 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -104,7 +104,7 @@ use TeXLive::TLDownload; use TeXLive::TLConfFile; use TeXLive::TLCrypto; TeXLive::TLUtils->import(qw(member info give_ctan_mirror win32 dirname - mkdirhier copy debug tlcmp)); + mkdirhier copy debug tlcmp repository_to_array)); use TeXLive::TLPaper; # @@ -4154,30 +4154,6 @@ sub array_to_repository { } return "@ret"; } -sub repository_to_array { - my $r = shift; - my %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) { - my $tag; - my $url; - # decode spaces and % in reverse order - $rr =~ s/%20/ /g; - $rr =~ s/%25/%/g; - $tag = $url = $rr; - if ($rr =~ m/^([^#]+)#(.*)$/) { - $tag = $2; - $url = $1; - } - $r{$tag} = $url; - } - return %r; -} sub merge_sub_packages { my %pkgs; for my $p (@_) { |