From 58751f3663f58918a53bfa57291c4032c14b583f Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 27 Sep 2019 00:31:10 +0000 Subject: fix TLUtils::copy failure to deal with links properly git-svn-id: svn://tug.org/texlive/trunk@52189 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 9904dac4742..e7aef738ec0 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1143,8 +1143,10 @@ sub copy { } if (-l "$infile") { - symlink (readlink $infile, "$destdir/$filename") - || die "symlink(readlink $infile, $destdir/$filename) failed: $!"; + # 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: $!"; } else { if (! open (IN, $infile)) { warn "open($infile) failed, not copying: $!"; -- cgit v1.2.3