TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: dpkg: Use the (intended) input perl's version.

Browse source 
* gnu/packages/debian.scm (dpkg)[arguments]: Replace reference to the
host-side perl variable with one to the build-side "perl" input.
This commit is contained in:
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 @@ (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")))