diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2021-02-04 00:14:32 -0500 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2021-02-04 00:14:32 -0500 |
| commit | 6129ebddbdd306ab60bb657d627db87686d76aa0 (patch) | |
| tree | 9f269d2d2a615d00490f0ceda0656b66406a187b /guix/build/gnu-build-system.scm | |
| parent | 337a94e534a9cdc5d70b92ef6adac7eed01a7a22 (diff) | |
| download | guix-6129ebddbdd306ab60bb657d627db87686d76aa0.tar guix-6129ebddbdd306ab60bb657d627db87686d76aa0.tar.gz | |
build/gnu: Ensure the files are writable after the unpack phase.
Fixes <https://issues.guix.gnu.org/43015>.
* guix/build/gnu-build-system.scm (unpack): Call 'make-file-writable' on every
source file.
Diffstat (limited to 'guix/build/gnu-build-system.scm')
| -rw-r--r-- | guix/build/gnu-build-system.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 66edd2de2d..fca77f474c 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -170,7 +170,8 @@ working directory." (when command (invoke command "--decompress" name))))) ;; Attempt to change into child directory. - (and=> (first-subdirectory ".") chdir)))) + (and=> (first-subdirectory ".") chdir))) + (for-each make-file-writable (find-files "."))) (define* (bootstrap #:key bootstrap-scripts #:allow-other-keys) |