05/31: gnu: perl-db-file: Use G-expressions.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 2938a2013f8eb801c66120ec339f54deae085cc7
Author: Tobias Geerinckx-Rice <me@tobias.gr>
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