From 6a0c9374bb3fb6da6572eca299fa6c3d3e05262b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 12 Apr 2015 16:30:18 +0000 Subject: sync git-svn-id: svn://tug.org/texlive/trunk@36792 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/tests/TeXLive/TLUtils.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Build/source/texk/tests/TeXLive') diff --git a/Build/source/texk/tests/TeXLive/TLUtils.pm b/Build/source/texk/tests/TeXLive/TLUtils.pm index ab940e6b93e..ca32f0e44dc 100644 --- a/Build/source/texk/tests/TeXLive/TLUtils.pm +++ b/Build/source/texk/tests/TeXLive/TLUtils.pm @@ -5,7 +5,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 35719 $'; +my $svnrev = '$Revision: 35937 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -2032,8 +2032,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; } } -- cgit v1.2.3