diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
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: $!"; |