nckx pushed a commit to branch master
in repository guix.
commit 2938a2013f8eb801c66120ec339f54deae085cc7
Author: Tobias Geerinckx-Rice <[email protected]>
AuthorDate: Sun Jul 23 02:00:00 2023 +0200
gnu: perl-db-file: Use G-expressions.
* gnu/packages/databases.scm (perl-db-file)[arguments]:
Rewrite as G-expressions, using THIS-PACKAGE-INPUT.
---
gnu/packages/databases.scm | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index efb00e40c6..5ce3c1d8c8 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2786,15 +2786,17 @@ database.")
(sha256
(base32 "1xm7s2ag15498kp7g8r20gxk22ncz3b3hz4b3srqf7ypif3a5dyf"))))
(build-system perl-build-system)
+ (arguments
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'configure 'modify-config.in
+ (lambda _
+ (substitute* "config.in"
+ (("/usr/local/BerkeleyDB")
+ #$(this-package-input "bdb"))))))))
(inputs (list bdb))
(native-inputs (list perl-test-pod))
- (arguments
- `(#:phases (modify-phases %standard-phases
- (add-before
- 'configure 'modify-config.in
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "config.in"
- (("/usr/local/BerkeleyDB") (assoc-ref inputs
"bdb"))))))))
(home-page "https://metacpan.org/release/DB_File";)
(synopsis "Perl5 access to Berkeley DB version 1.x")
(description
