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:
Tobias Geerinckx-Rice 2023-07-23 02:00:00 +02:00
parent ecdcafc007
commit edf50dec80
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

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