~ruther/guix-local

7e5124976b0bc19cf26ef7376ea041b25b7fbd35 — Ludovic Courtès 10 years ago 1b9cf4a
gnu: util-linux: Fix file name of 'umount' in 'eject'.

Fixes <http://bugs.gnu.org/21010>.
Reported by Alex Sassmannshausen <alex.sassmannshausen@gmail.com>.

* gnu/packages/linux.scm (util-linux)[arguments]: Add 'set-umount-file-name'.
1 files changed, 9 insertions(+), 0 deletions(-)

M gnu/packages/linux.scm
M gnu/packages/linux.scm => gnu/packages/linux.scm +9 -0
@@ 419,6 419,15 @@ providing the system administrator with some help in common tasks.")
                                              "/etc/bash_completion.d"))
       #:phases (modify-phases %standard-phases
                  (add-before
                   'build 'set-umount-file-name
                   (lambda* (#:key outputs #:allow-other-keys)
                     ;; Tell 'eject' the right file name of 'umount'.
                     (let ((out (assoc-ref outputs "out")))
                       (substitute* "sys-utils/eject.c"
                         (("\"/bin/umount\"")
                          (string-append "\"" out "/bin/umount\"")))
                       #t)))
                  (add-before
                   'check 'pre-check
                   (lambda* (#:key inputs outputs #:allow-other-keys)
                     (let ((out (assoc-ref outputs "out"))