sync

git-svn-id: svn://tug.org/texlive/trunk@36792 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 3 insertions, 3 deletions

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;
       }
     }