summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-10-20 22:01:52 +0000
committerKarl Berry <karl@freefriends.org>2019-10-20 22:01:52 +0000
commitf517a16c701b0776dd75240666afd39c387da49f (patch)
treeb342c78727b463cfb4659fc34d669abc5fb61055 /Master
parent171c9908d73be26aa4636d0b7a4da582e1de5088 (diff)
back to relative symlinks, else symlinks in bin point to absolute installer directory (Alexandre Girao, 20 Oct 2019 00:13:23)
git-svn-id: svn://tug.org/texlive/trunk@52465 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index e7aef738ec0..9904dac4742 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1143,10 +1143,8 @@ sub copy {
}
if (-l "$infile") {
- # the link target might be relative, so we need to start from
- # the directory of $infile for the link
- symlink (Cwd::abs_path(dirname($infile)) . "/" . readlink($infile), "$destdir/$filename")
- || die "symlink(dirname($infile) . \"/\" . readlink($infile), $destdir/$filename) failed: $!";
+ symlink (readlink $infile, "$destdir/$filename")
+ || die "symlink(readlink $infile, $destdir/$filename) failed: $!";
} else {
if (! open (IN, $infile)) {
warn "open($infile) failed, not copying: $!";