From 1122217f27d601727a8117a20af862b7770721cb Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 2 Jul 2023 02:00:00 +0200 Subject: 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(-) (limited to 'gnu/packages/debian.scm') 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 @@ (define-public dpkg (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 @@ (define-public dpkg (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"))) -- cgit v1.2.3