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'.
This commit is contained in:
parent
1b9cf4ad2f
commit
7e5124976b
|
@ -418,6 +418,15 @@ providing the system administrator with some help in common tasks.")
|
||||||
(assoc-ref %outputs "out")
|
(assoc-ref %outputs "out")
|
||||||
"/etc/bash_completion.d"))
|
"/etc/bash_completion.d"))
|
||||||
#:phases (modify-phases %standard-phases
|
#: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
|
(add-before
|
||||||
'check 'pre-check
|
'check 'pre-check
|
||||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||||
|
|
Loading…
Reference in New Issue