127/376: Use regular file GC roots if possible

[Ludovic Court�s]

civodul pushed a commit to tag 1.8
in repository guix.

commit 9367046feff702af2dc5b1c5f45254b970d4da91
Author: Eelco Dolstra <eelco.dols...@logicblox.com>
Date:   Wed Aug 13 17:44:41 2014 +0200

    Use regular file GC roots if possible
    
    This makes hydra-eval-jobs create roots as regular files. See
    1c208f2b7ef8ffb5e6d435d703dad83223a67bd6.
---
 src/libstore/gc.cc |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/src/libstore/gc.cc b/src/libstore/gc.cc
index e583615..74c2083 100644
--- a/src/libstore/gc.cc
+++ b/src/libstore/gc.cc
@@ -115,7 +115,10 @@ Path addPermRoot(StoreAPI & store, const Path & _storePath,
                     % gcRoot % rootsDir);
         }
 
-        makeSymlink(gcRoot, storePath);
+        if (baseNameOf(gcRoot) == baseNameOf(storePath))
+            writeFile(gcRoot, "");
+        else
+            makeSymlink(gcRoot, storePath);
     }
 
     /* Check that the root can be found by the garbage collector.