me
/
guix
Archived
1
0
Fork 0
Code

gnu: libvirt: Update to 7.5.0 [fixes CVE-2021-3631]. 

* gnu/packages/virtualization.scm (libvirt): Update to 7.5.0.
[arguments]: Add a new 'skip-directory-confusion phase.
Remove obsolete 'no-polkit-magic phase.
master
Tobias Geerinckx-Rice 2021-07-01 17:28:27 +02:00
parent 920ba137f9
commit a362d9c65d
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/virtualization.scm
View File

@ -1072,14 +1072,14 @@ It started as a side project of LXC but can be used by any run-time.")
(define-public libvirt (define-public libvirt
(package (package
(name "libvirt") (name "libvirt")
(version "7.3.0") (version "7.5.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://libvirt.org/sources/libvirt-" (uri (string-append "https://libvirt.org/sources/libvirt-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 "1gn13mfwbdhp31pkzvrba7avz84yc9f1ik9f3ympa51hq22vpg97")) (base32 "15987ihnsjvcgi11dzcf1k3zp1si2d4wcxj0r0i30brc0d4pn44h"))
(patches (search-patches "libvirt-add-install-prefix.patch")))) (patches (search-patches "libvirt-add-install-prefix.patch"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
@ -1100,6 +1100,12 @@ It started as a side project of LXC but can be used by any run-time.")
#:meson ,meson-0.55 #:meson ,meson-0.55
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'skip-directory-confusion
(lambda _
;; Don't try to install an (unused) /var outside of the store.
(substitute* "scripts/meson-install-dirs.py"
(("destdir = .*")
"destdir = '/tmp'"))))
(add-before 'configure 'disable-broken-tests (add-before 'configure 'disable-broken-tests
(lambda _ (lambda _
(let ((tests (list "commandtest" ; hangs idly (let ((tests (list "commandtest" ; hangs idly
@ -1107,13 +1113,7 @@ It started as a side project of LXC but can be used by any run-time.")
"virnetsockettest"))) ; tries to network "virnetsockettest"))) ; tries to network
(substitute* "tests/meson.build" (substitute* "tests/meson.build"
(((format #f ".*'name': '(~a)'.*" (string-join tests "|"))) (((format #f ".*'name': '(~a)'.*" (string-join tests "|")))
"")) ""))))))))
#t)))
(add-before 'install 'no-polkit-magic
;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
(lambda _
(setenv "PKEXEC_UID" "something")
#t)))))
(inputs (inputs
`(("libxml2" ,libxml2) `(("libxml2" ,libxml2)
("eudev" ,eudev) ("eudev" ,eudev)