mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 23:46:13 -05:00
gnu: gnupg: Update to 2.1.16.
* gnu/packages/gnupg.scm (gnupg): Update to 2.1.16. [arguments]: Remove obsolete substitution from 'patch-paths' phase. Remove 'set-home' phase. Add 'set-gnupg-home' phase.
This commit is contained in:
parent
9fff9e6484
commit
764c566221
1 changed files with 7 additions and 10 deletions
|
@ -213,14 +213,14 @@ (define-public npth
|
|||
(define-public gnupg
|
||||
(package
|
||||
(name "gnupg")
|
||||
(version "2.1.15")
|
||||
(version "2.1.16")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://gnupg/gnupg/gnupg-" version
|
||||
".tar.bz2"))
|
||||
(sha256
|
||||
(base32
|
||||
"1pgz02gd84ab94w4xdg67p9z8kvkyr9d523bvcxxd2hviwh1m362"))))
|
||||
"0i483m9q032a0s50f1izb213g4h5i7pcgn395m6hvl3sg2kadfa9"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs
|
||||
`(("pkg-config" ,pkg-config)))
|
||||
|
@ -245,8 +245,6 @@ (define-public gnupg
|
|||
(modify-phases %standard-phases
|
||||
(add-before 'configure 'patch-paths
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(substitute* "tests/openpgp/defs.inc"
|
||||
(("/bin/pwd") (which "pwd")))
|
||||
(substitute* "scd/scdaemon.c"
|
||||
(("\"(libpcsclite\\.so[^\"]*)\"" _ name)
|
||||
(string-append "\"" (assoc-ref inputs "pcsc-lite")
|
||||
|
@ -256,13 +254,12 @@ (define-public gnupg
|
|||
(lambda _
|
||||
(substitute* (find-files "tests" ".\\.scm$")
|
||||
(("/usr/bin/env gpgscm")
|
||||
(string-append (getcwd) "/tests/gpgscm/gpgscm")))))
|
||||
(add-before 'check 'set-home
|
||||
;; Some tests require write access to $HOME, otherwise leading to
|
||||
;; 'failed to create directory /homeless-shelter/.asy' error.
|
||||
;; TODO Try removing this phase for GnuPG 2.1.16.
|
||||
(string-append (getcwd) "/tests/gpgscm/gpgscm")))
|
||||
#t))
|
||||
;; If this variable is undefined, /bin/pwd is invoked.
|
||||
(add-before 'check 'set-gnupg-home
|
||||
(lambda _
|
||||
(setenv "HOME" "/tmp")
|
||||
(setenv "GNUPGHOME" (getcwd))
|
||||
#t)))))
|
||||
(home-page "https://gnupg.org/")
|
||||
(synopsis "GNU Privacy Guard")
|
||||
|
|
Loading…
Reference in a new issue