From 1cba6d04155f7747a5061a73ae4ac9341b3ff58a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 6 Jul 2009 12:31:40 +0000 Subject: 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 --- Master/texmf/scripts/texlive/tlmgr.pl | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'Master/texmf') 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"); -- cgit v1.2.3