diff options
| author | JOULAUD François <Francois.JOULAUD@radiofrance.com> | 2021-01-18 08:26:02 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-01-19 17:45:38 +0100 |
| commit | 4d79f072cc7b502fc25486d514c9200ba684a596 (patch) | |
| tree | 57d1ec4803e1381ac79bf916d9ad87307a4da821 /guix/scripts | |
| parent | f97ee7741883cc69be90947c7e699bd8435f065f (diff) | |
environment: Fix '--root' option with relative file name.
The path normalization of `--root` option of `guix environment` was
buggy as it appended full argument after normalized directory. This
patch fixes it.
* guix/scripts/environment.scm (register-gc-root): Fix gc-root path
normalization.
* tests/guix-environment.sh: Add test.
Co-authored-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix/scripts')
| -rw-r--r-- | guix/scripts/environment.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm index fbc202c658..f4d12f89bf 100644 --- a/guix/scripts/environment.scm +++ b/guix/scripts/environment.scm @@ -675,7 +675,7 @@ message if any test fails." (let* ((root (if (string-prefix? "/" root) root (string-append (canonicalize-path (dirname root)) - "/" root)))) + "/" (basename root))))) (catch 'system-error (lambda () (symlink target root) |