texlive[52465] Master/tlpkg/TeXLive/TLUtils.pm: back to relative
commits+karl at tug.org
commits+karl at tug.org
Mon Oct 21 00:01:53 CEST 2019
Revision: 52465
http://tug.org/svn/texlive?view=revision&revision=52465
Author: karl
Date: 2019-10-21 00:01:52 +0200 (Mon, 21 Oct 2019)
Log Message:
-----------
back to relative symlinks, else symlinks in bin point to absolute installer directory (Alexandre Girao, 20 Oct 2019 00:13:23)
Modified Paths:
--------------
trunk/Master/tlpkg/TeXLive/TLUtils.pm
Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm 2019-10-20 21:02:24 UTC (rev 52464)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm 2019-10-20 22:01:52 UTC (rev 52465)
@@ -1143,10 +1143,8 @@
}
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: $!";
More information about the tex-live-commits
mailing list