~ruther/guix-local

ac9c1dc7bdf1a016fcd1989993999e4a32d0c885 — Ludovic Courtès 9 years ago 1062063
list-runtime-roots: Bufferize the lsof pipe.

* nix/scripts/list-runtime-roots.in (lsof-roots): Add 'setvbuf' call for
PIPE.
1 files changed, 4 insertions(+), 1 deletions(-)

M nix/scripts/list-runtime-roots.in
M nix/scripts/list-runtime-roots.in => nix/scripts/list-runtime-roots.in +4 -1
@@ 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)