summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-15 16:57:12 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-15 16:57:12 +0200
commit4aea820f0954fce4d076718072faf211f62f3f9d (patch)
treee1f6952bfe18778da074657a6745093e06c8d07f /guix
parentcbd059d1017bc22723f1e5293cc8f20dea640fff (diff)
guix build: Fix relative file name canonicalization for '--root'.
Fixes <https://bugs.gnu.org/35271>. Reported by rendaw <7e9wc56emjakcm@s.rendaw.me>. * guix/scripts/build.scm (register-root): When ROOT is a relative file name, append the basename of ROOT, not ROOT itself. * tests/guix-build.sh: Add test.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/build.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index 28864435df..fc0c0e2ad3 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -119,7 +119,7 @@ found. Return #f if no build log was found."
(let* ((root (if (string-prefix? "/" root)
root
(string-append (canonicalize-path (dirname root))
- "/" root))))
+ "/" (basename root)))))
(catch 'system-error
(lambda ()
(match paths