me
/
guix
Archived
1
0
Fork 0
Code

gnu: bcachefs-tools: Fix shell script wrappers. 

* gnu/packages/file-systems.scm (bcachefs-tools)[arguments]:
Add a new 'patch-shell-wrappers phase.
master
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
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/file-systems.scm
View File

@ -618,7 +618,17 @@ from a mounted file system.")
"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.