Browse Source

list-runtime-roots: Bufferize the lsof pipe.

* nix/scripts/list-runtime-roots.in (lsof-roots): Add 'setvbuf' call for
PIPE.
wip-git-https
Ludovic Courtès 5 years ago
parent
commit
ac9c1dc7bd
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 5
      nix/scripts/list-runtime-roots.in

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

@ -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)

Loading…
Cancel
Save