diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-05-27 22:01:51 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-27 22:28:34 +0200 |
commit | 5895f2444317ba74eeab21d517c703c3687165c0 (patch) | |
tree | 24ac8c0327d8ca6b14c082b7b23423fc45990b8f | |
parent | 2a7050abf8ae27d6ee929426cadd3889be611ff8 (diff) | |
download | patches-5895f2444317ba74eeab21d517c703c3687165c0.tar patches-5895f2444317ba74eeab21d517c703c3687165c0.tar.gz |
store: Work around 'get-bytevector-n' bug that affects 'import-paths'.
Fixes <http://bugs.gnu.org/17591>.
* guix/store.scm (process-stderr) <%stderr-read>: Use
'get-bytevector-n!' instead of 'get-bytevector-n'.
-rw-r--r-- | guix/store.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix/store.scm b/guix/store.scm index 0c99e623ec..8c774a6db2 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -397,11 +397,13 @@ encoding conversion errors." #f) ((= k %stderr-read) ;; Read a byte stream from USER-PORT. + ;; Note: Avoid 'get-bytevector-n' to work around + ;; <http://bugs.gnu.org/17591> in Guile up to 2.0.11. (let* ((max-len (read-int p)) - (data (get-bytevector-n user-port max-len)) - (len (bytevector-length data))) + (data (make-bytevector max-len)) + (len (get-bytevector-n! user-port data 0 max-len))) (write-int len p) - (put-bytevector p data) + (put-bytevector p data 0 len) (write-padding len p) #f)) ((= k %stderr-next) |