(do_link): Allow creation of a hard link to a dangling

symlink.  Reported by Alexey Solovyov:

diff --git a/src/ln.c b/src/ln.c
index 093b9e6f43b0e90648f917df9cbcf8994f072393..e60cc6e74e79eea4fd55ef2aa24075db9a0e6fc0 100644 (file)
--- a/src/ln.c
+++ b/src/ln.c
@@ -174,8 +174,14 @@ do_link (const char *source, const char *dest)
     {
       if (stat (source, &source_stats) != 0)
        {
-         error (0, errno, "%s", source);
-         return 1;
+         /* This still could be a legitimate request:
+            if SOURCE is a dangling symlink.  */
+         if (errno != ENOENT
+             || lstat (source, &source_stats) != 0)
+           {
+             error (0, errno, "%s", source);
+             return 1;
+           }
        }
       if (!hard_dir_link && S_ISDIR (source_stats.st_mode))
        {