mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 06:18:07 -05:00
gnu: bcachefs-tools: Fix shell script wrappers.
* gnu/packages/file-systems.scm (bcachefs-tools)[arguments]: Add a new 'patch-shell-wrappers phase.
This commit is contained in:
parent
ecdcafc007
commit
edf50dec80
1 changed files with 11 additions and 1 deletions
|
@ -618,7 +618,17 @@ (define-public bcachefs-tools
|
|||
"not test_fsck and "
|
||||
"not test_list and "
|
||||
"not test_list_inodes and "
|
||||
"not test_list_dirent"))))))))
|
||||
"not test_list_dirent")))))
|
||||
(add-after 'install 'patch-shell-wrappers
|
||||
;; These are overcomplicated wrappers that invoke readlink(1)
|
||||
;; to exec the appropriate bcachefs(8) subcommand. We can
|
||||
;; simply patch in the latter file name directly, and do.
|
||||
(lambda _
|
||||
(let ((sbin/ (string-append #$output "/sbin/")))
|
||||
(substitute* (find-files sbin/ (lambda (file stat)
|
||||
(not (elf-file? file))))
|
||||
(("SDIR=.*") "")
|
||||
(("\\$\\{SDIR.*}/") sbin/))))))))
|
||||
(native-inputs
|
||||
(cons* pkg-config
|
||||
;; For generating documentation with rst2man.
|
||||
|
|
Loading…
Reference in a new issue