diff options
| author | Norbert Preining <preining@logic.at> | 2009-07-06 12:31:40 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-07-06 12:31:40 +0000 |
| commit | 1cba6d04155f7747a5061a73ae4ac9341b3ff58a (patch) | |
| tree | 2dd8f2cf98e5ba92939f2bc3b6a783294682fb90 /Master/texmf/scripts | |
| parent | b7571eb1447c7088b54908ad9a33c253f2a31744 (diff) | |
move add/remove_symlinks to TLUtils, so that we can use it in install-tl
us it there, and fix tlmgr, and remove code from TLMedia.pm
git-svn-id: svn://tug.org/texlive/trunk@14145 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 913471dff55..8c3896ccc6a 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -886,10 +886,18 @@ sub action_symlinks { } init_local_db(); if ($what =~ m/^add$/i) { - $localtlmedia->add_symlinks(); + TeXLive::TLUtils::add_symlinks($localtlmedia->tlpdb->root, + $localtlmedia->platform(), + $localtlmedia->tlpdb->option("sys_bin"), + $localtlmedia->tlpdb->option("sys_man"), + $localtlmedia->tlpdb->option("sys_info")); } elsif ($what =~ m/^remove$/i) { # remove symlinks - $localtlmedia->remove_symlinks(); + TeXLive::TLUtils::remove_symlinks($localtlmedia->tlpdb->root, + $localtlmedia->platform(), + $localtlmedia->tlpdb->option("sys_bin"), + $localtlmedia->tlpdb->option("sys_man"), + $localtlmedia->tlpdb->option("sys_info")); } else { # that should not happen tlwarn("that should not happen, action_symlinks what=$what\n"); |