me
/
guix
Archived
1
0
Fork 0
Code

list-runtime-roots: Bufferize the lsof pipe. 

* nix/scripts/list-runtime-roots.in (lsof-roots): Add 'setvbuf' call for
PIPE.
master
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
!#
;;; 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.
;;;
@ -133,6 +133,9 @@ or the empty list."
(define %file-rx
(make-regexp "^n/(.*)$"))
;; We're going to read it all.
(setvbuf pipe _IOFBF 16384)
(let loop ((line (read-line pipe))
(roots '()))
(cond ((eof-object? line)