diff options
| author | Karl Berry <karl@freefriends.org> | 2014-12-31 23:35:06 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2014-12-31 23:35:06 +0000 |
| commit | 86fec1be4359950a5c4b950038e54fa168b93047 (patch) | |
| tree | 727a908ede683c0e1de7d1adf03d79d8c8326bc0 | |
| parent | 3e41ebe41c5bf5ecb0f55312ffc469f111fffa2d (diff) | |
(add_link_dir_dir): use symlink() instead of system(ln -s).
git-svn-id: svn://tug.org/texlive/trunk@35937 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 3fb58a9f68c..21193f79347 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2033,8 +2033,8 @@ sub add_link_dir_dir { } # # try to make the link. - if (system ("ln -s '$from/$f' '$to'") != 0) { - tlwarn ("add_link_dir_dir: linking $f from $from to $to failed: $!\n"); + if (symlink ("$from/$f", "$to/$f") == 0) { + tlwarn ("add_link_dir_dir: symlink of $f from $from to $to failed: $!\n"); $ret = 0; } } |