nckx pushed a commit to branch master
in repository guix.
commit 1122217f27d601727a8117a20af862b7770721cb
Author: Tobias Geerinckx-Rice <[email protected]>
AuthorDate: Sun Jul 2 02:00:00 2023 +0200
gnu: dpkg: Use the (intended) input perl's version.
* gnu/packages/debian.scm (dpkg)[arguments]: Replace reference to the
host-side perl variable with one to the build-side "perl" input.
---
gnu/packages/debian.scm | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/debian.scm b/gnu/packages/debian.scm
index 869571a8ce..92aa4a33e3 100644
--- a/gnu/packages/debian.scm
+++ b/gnu/packages/debian.scm
@@ -349,7 +349,10 @@ distributions such as Debian and Trisquel.")
(base32 "0b5czgif5g6pdjzcw60hzzj0i1llxvajf3nlx115axmpa3y4iynd"))))
(build-system gnu-build-system)
(arguments
- `(#:phases
+ `(#:modules
+ ((srfi srfi-71)
+ ,@%gnu-build-system-modules)
+ #:phases
(modify-phases %standard-phases
(add-before 'bootstrap 'patch-version
(lambda _
@@ -358,12 +361,13 @@ distributions such as Debian and Trisquel.")
(lambda () (display ,version)))))
(add-after 'unpack 'set-perl-libdir
(lambda* (#:key inputs outputs #:allow-other-keys)
- (let ((out (assoc-ref outputs "out"))
- (perl (assoc-ref inputs "perl")))
+ (let* ((out (assoc-ref outputs "out"))
+ (perl (assoc-ref inputs "perl"))
+ (_ perl-version (package-name->name+version perl)))
(setenv "PERL_LIBDIR"
(string-append out
"/lib/perl5/site_perl/"
- ,(package-version perl))))))
+ perl-version)))))
(add-after 'install 'wrap-scripts
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
