futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: davfs2: Update to 1.6.1.

Browse Source 
* gnu/packages/file-systems.scm (davfs2): Update to 1.6.1.
[arguments]: Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2021-11-26 22:32:57 +01:00
parent 6e34b8f35b
commit 5aebbbffac
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -251,14 +251,14 @@ unmaintained---to use the @code{inotify} API instead of the deprecated
(define-public davfs2 (define-public davfs2
(package (package
(name "davfs2") (name "davfs2")
(version "1.6.0") (version "1.6.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://download.savannah.nongnu.org/releases/" (uri (string-append "https://download.savannah.nongnu.org/releases/"
"davfs2/davfs2-" version ".tar.gz")) "davfs2/davfs2-" version ".tar.gz"))
(sha256 (sha256
(base32 "0l1vnv5lfigciwg17p10zxwhzj4qw2d9kw30prr7g4dxhmb6fsrf")))) (base32 "1h65j2py59b97wbzzjhp4wbkk6351v3hrjscjcfab0p5xi4bjgnf"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags `(#:configure-flags
@ -277,16 +277,14 @@ unmaintained---to use the @code{inotify} API instead of the deprecated
(substitute* "etc/Makefile.in" (substitute* "etc/Makefile.in"
(("(dist_pkgdata_DATA =.*) davfs2.conf secrets(.*)" (("(dist_pkgdata_DATA =.*) davfs2.conf secrets(.*)"
_ prefix suffix) _ prefix suffix)
(string-append prefix suffix))) (string-append prefix suffix)))))
#t))
(add-after 'unpack 'patch-file-names (add-after 'unpack 'patch-file-names
(lambda _ (lambda _
;; Don't auto-load the FUSE kernel module. That's up to root. ;; Don't auto-load the FUSE kernel module. That's up to root.
;; XXX If/when we restore the previous behaviour, make sure not ;; XXX If/when we restore the previous behaviour, make sure not
;; to introduce a security hole when mount.davfs is setuid. ;; to introduce a security hole when mount.davfs is setuid.
(substitute* "src/kernel_interface.c" (substitute* "src/kernel_interface.c"
(("/sbin/modprobe") "/modprobe/disabled")) (("/sbin/modprobe") "/modprobe/disabled"))))
#t))
(replace 'install (replace 'install
(lambda* (#:key make-flags outputs #:allow-other-keys) (lambda* (#:key make-flags outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))