guix_mirror_bot pushed a commit to branch crypto-team
in repository guix.
commit 097ef9c8909f355b7b12fcabfeedc17b69a64677
Author: Cayetano Santos <[email protected]>
AuthorDate: Fri May 29 11:22:44 2026 +0200
gnu: libgpg-error: Update to 1.61.
* gnu/packages/gnupg.scm (libgpg-error): Update to 1.61.
[arguments]: Fix indent.
Change-Id: I292440ac19bc08a770a6dd40e6e81756bf22c7d1
---
gnu/packages/gnupg.scm | 88 +++++++++++++++++++++++++-------------------------
1 file changed, 44 insertions(+), 44 deletions(-)
diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm
index ffbf07972e..ca43c5e763 100644
--- a/gnu/packages/gnupg.scm
+++ b/gnu/packages/gnupg.scm
@@ -102,7 +102,7 @@
(define-public libgpg-error
(package
(name "libgpg-error")
- (version "1.51")
+ (version "1.61")
(source
(origin
(method url-fetch)
@@ -110,55 +110,55 @@
version ".tar.bz2"))
(sha256
(base32
- "1cp64xa58977fysj1z1rgj60qxbjkzqpkpww6raysgmrnqnin3xy"))))
+ "14sw73317735xq991sz0x5jqkr12y6572aw3mbwg8m635czl31bs"))))
(build-system gnu-build-system)
(arguments
(list
#:configure-flags #~(list "--enable-install-gpg-error-config")
#:phases
#~(modify-phases %standard-phases
- #$@(cond
- ((%current-target-system)
- ;; If this is left out, some generated header
- ;; files will be sprinkled with ‘\c’, which
- ;; the compiler won't like.
- #~((add-after 'unpack 'fix-gen-lock-obj.sh
- (lambda _
- (substitute* "src/gen-lock-obj.sh"
- (("if test -n `echo -n`") "if ! test -n `echo -n`"))))
- ;; When cross-compiling, some platform specific properties cannot
- ;; be detected. Create a symlink to the appropriate platform
- ;; file if required. Note that these platform files depend on
- ;; both the operating system and architecture!
- ;;
- ;; See Cross-Compiling section at:
- ;; https://github.com/gpg/libgpg-error/blob/master/README
- (add-after 'unpack 'cross-symlinks
- (lambda _
- (define (link triplet source)
- (symlink (string-append "lock-obj-pub." triplet ".h")
- (string-append "src/syscfg/lock-obj-pub."
- source ".h")))
- #$(let ((target (%current-target-system)))
- (cond ((target-linux? target)
- (match (string-take target
- (string-index target #\-))
- ("armhf"
- `(link "arm-unknown-linux-gnueabi"
"linux-gnu"))
- ("mips64el"
- `(link "mips-unknown-linux-gnu"
"linux-gnu"))
- ;; Don't always link to the "linux-gnu"
- ;; configuration, as this is not correct
for
- ;; all architectures.
- (_ #t)))
- (#t #t)))))))
- ((system-hurd?)
- #~((add-after 'unpack 'skip-tests
- (lambda _
- (substitute* "tests/t-syserror.c"
- (("(^| )main *\\(.*" all)
- (string-append all "{\n exit (77);//")))))))
- (else #~())))))
+ #$@(cond
+ ((%current-target-system)
+ ;; If this is left out, some generated header
+ ;; files will be sprinkled with ‘\c’, which
+ ;; the compiler won't like.
+ #~((add-after 'unpack 'fix-gen-lock-obj.sh
+ (lambda _
+ (substitute* "src/gen-lock-obj.sh"
+ (("if test -n `echo -n`") "if ! test -n `echo -n`"))))
+ ;; When cross-compiling, some platform specific properties
cannot
+ ;; be detected. Create a symlink to the appropriate platform
+ ;; file if required. Note that these platform files depend on
+ ;; both the operating system and architecture!
+ ;;
+ ;; See Cross-Compiling section at:
+ ;; https://github.com/gpg/libgpg-error/blob/master/README
+ (add-after 'unpack 'cross-symlinks
+ (lambda _
+ (define (link triplet source)
+ (symlink (string-append "lock-obj-pub." triplet ".h")
+ (string-append "src/syscfg/lock-obj-pub."
+ source ".h")))
+ #$(let ((target (%current-target-system)))
+ (cond ((target-linux? target)
+ (match (string-take target
+ (string-index target #\-))
+ ("armhf"
+ `(link "arm-unknown-linux-gnueabi"
"linux-gnu"))
+ ("mips64el"
+ `(link "mips-unknown-linux-gnu"
"linux-gnu"))
+ ;; Don't always link to the "linux-gnu"
+ ;; configuration, as this is not correct for
+ ;; all architectures.
+ (_ #t)))
+ (#t #t)))))))
+ ((system-hurd?)
+ #~((add-after 'unpack 'skip-tests
+ (lambda _
+ (substitute* "tests/t-syserror.c"
+ (("(^| )main *\\(.*" all)
+ (string-append all "{\n exit (77);//")))))))
+ (else #~())))))
(native-inputs (list gettext-minimal))
(home-page "https://gnupg.org";)
(synopsis "Library of error values for GnuPG components")
