check return value of link command

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

1 files changed, 7 insertions, 4 deletions

diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 3d201b25224..ffe004d2053 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -923,8 +923,7 @@ sub config_revision {
 
 These two functions try to create/remove symlinks for binaries, man pages,
 and info files as specified by the options saved in the tlpdb
-($tlpdb->option_create_symlinks, $tlpdb->option_sys_bin,
-$tlpdb->option_sys_man, $tlpdb->option_sys_info). 
+($tlpdb->option_sys_bin, $tlpdb->option_sys_man, $tlpdb->option_sys_info). 
 
 The functions return 1 on success and 0 on error.
 On Windows it returns undefined.
@@ -937,11 +936,15 @@ sub link_dir_dir {
   if (-w  $to) {
     debug("linking files from $from to $to\n");
     chomp (@files = `ls "$from"`);
+    my $ret = 1;
     for my $f (@files) {
       unlink("$to/$f");
-      system("ln -s \"$from/$f\" \"$to\"");
+      if (system("ln -s \"$from/$f\" \"$to\"")) {
+        tlwarn("Linking $f from $from to $to failed: $!\n");
+        $ret = 0;
+      }
     }
-    return 1;
+    return $ret;
   } else {
     tlwarn("destination $to not writable, no linking files in $from done.\n");
     return 0;