me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Tobias Geerinckx-Rice 2023-07-02 02:00:00 +02:00
parent afd09faaf9
commit 1122217f27
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/debian.scm
View File

@ -349,7 +349,10 @@ distributions such as Debian and Trisquel.")
(base32 "0b5czgif5g6pdjzcw60hzzj0i1llxvajf3nlx115axmpa3y4iynd")))) (base32 "0b5czgif5g6pdjzcw60hzzj0i1llxvajf3nlx115axmpa3y4iynd"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:modules
((srfi srfi-71)
,@%gnu-build-system-modules)
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'bootstrap 'patch-version (add-before 'bootstrap 'patch-version
(lambda _ (lambda _
@ -358,12 +361,13 @@ distributions such as Debian and Trisquel.")
(lambda () (display ,version))))) (lambda () (display ,version)))))
(add-after 'unpack 'set-perl-libdir (add-after 'unpack 'set-perl-libdir
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(perl (assoc-ref inputs "perl"))) (perl (assoc-ref inputs "perl"))
(_ perl-version (package-name->name+version perl)))
(setenv "PERL_LIBDIR" (setenv "PERL_LIBDIR"
(string-append out (string-append out
"/lib/perl5/site_perl/" "/lib/perl5/site_perl/"
,(package-version perl)))))) perl-version)))))
(add-after 'install 'wrap-scripts (add-after 'install 'wrap-scripts
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))