nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

list-runtime-roots: Bufferize the lsof pipe. 

* nix/scripts/list-runtime-roots.in (lsof-roots): Add 'setvbuf' call for
PIPE.
This commit is contained in:
Ludovic Courtès 2017-03-08 23:10:09 +01:00
parent 1062063a65
commit ac9c1dc7bd
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
nix/scripts/list-runtime-roots.in
View File

@ -1,7 +1,7 @@
#!@GUILE@ -ds #!@GUILE@ -ds
!# !#
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2017 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -133,6 +133,9 @@ or the empty list."
(define %file-rx (define %file-rx
(make-regexp "^n/(.*)$")) (make-regexp "^n/(.*)$"))
;; We're going to read it all.
(setvbuf pipe _IOFBF 16384)
(let loop ((line (read-line pipe)) (let loop ((line (read-line pipe))
(roots '())) (roots '()))
(cond ((eof-object? line) (cond ((eof-object? line)