me/guix
Archived
1
0
Fork 0
Code Activity

gnu: eudev: Update to 3.2.11.

Browse source 
* gnu/packages/linux.scm (eudev): Update to 3.2.11.
[phases]{make-source-writable}: Remove phase, no longer needed.
{patch-bindir-in-btrfs-rules}: Likewise, fixed upstream.
Remove trailing #t.
This commit is contained in:
Maxim Cournoyer 2021-12-18 00:32:21 -05:00
parent f1d774826a
commit be3b33dbba
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 4 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
gnu/packages/linux.scm
View file

@ -3770,7 +3770,7 @@ to the in-kernel OOM killer.")
;; The post-systemd fork, maintained by Gentoo. ;; The post-systemd fork, maintained by Gentoo.
(package (package
(name "eudev") (name "eudev")
(version "3.2.9") (version "3.2.11")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (url "https://github.com/gentoo/eudev") (uri (git-reference (url "https://github.com/gentoo/eudev")
@ -3778,36 +3778,19 @@ to the in-kernel OOM killer.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1g9z3d33m0i3hmbhm0wxpvkzf6ac7xj1drwcfrhzlfhhi63sg9h7")) "0dzaqwjnl55f69ird57wb6skahc6l7zs1slsrzqqfhww33icp6av"))
(patches (search-patches "eudev-rules-directory.patch")))) (patches (search-patches "eudev-rules-directory.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'make-source-writable
(lambda _
;; XXX: Git checkouts are read-only, but this package needs to
;; modify some of its files.
(for-each make-file-writable (find-files "."))
#t))
(add-before 'bootstrap 'patch-file-names (add-before 'bootstrap 'patch-file-names
(lambda* (#:key inputs native-inputs #:allow-other-keys) (lambda* (#:key inputs native-inputs #:allow-other-keys)
(substitute* "man/make.sh" (substitute* "man/make.sh"
(("/usr/bin/xsltproc") (("/usr/bin/xsltproc")
(string-append (assoc-ref (string-append (assoc-ref
(or native-inputs inputs) "xsltproc") (or native-inputs inputs) "xsltproc")
"/bin/xsltproc"))) "/bin/xsltproc")))))
#t))
(add-before 'configure 'patch-bindir-in-btrfs-rules
(lambda* (#:key outputs #:allow-other-keys)
;; The "@bindir@" substitution incorrectly expands to a literal
;; "${exec_prefix}" (see <https://bugs.gnu.org/39926>). Work
;; around it.
(let ((out (assoc-ref outputs "out")))
(substitute* "rules/64-btrfs.rules.in"
(("@bindir@")
(string-append out "/bin")))
#t)))
(add-after 'install 'move-static-library (add-after 'install 'move-static-library
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -3821,8 +3804,7 @@ to the in-kernel OOM killer.")
;; such that Libtool looks for it in the usual places. ;; such that Libtool looks for it in the usual places.
(substitute* (string-append out "/lib/libudev.la") (substitute* (string-append out "/lib/libudev.la")
(("old_library=.*") (("old_library=.*")
"old_library=''\n")) "old_library=''\n")))))
#t)))
(add-after 'install 'build-hwdb (add-after 'install 'build-hwdb
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Build OUT/etc/udev/hwdb.bin. This allows 'lsusb' and ;; Build OUT/etc/udev/hwdb.bin. This allows 'lsusb' and