ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: perl: Use 'modify-phases'.

Browse source 
* gnu/packages/perl.scm (perl)[arguments]: Use 'modify-phases' instead of
  'alist-replace'.
This commit is contained in:
Ludovic Courtès 2015-06-04 11:13:54 +02:00
parent 2068559ba0
commit f683d67d66
1 changed files with 21 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
gnu/packages/perl.scm
View file

@ -51,28 +51,28 @@ (define-public perl
(arguments (arguments
'(#:tests? #f '(#:tests? #f
#:phases #:phases
(alist-replace (modify-phases %standard-phases
'configure (replace
(lambda* (#:key inputs outputs #:allow-other-keys) 'configure
(let ((out (assoc-ref outputs "out")) (lambda* (#:key inputs outputs #:allow-other-keys)
(libc (assoc-ref inputs "libc"))) (let ((out (assoc-ref outputs "out"))
;; Use the right path for `pwd'. (libc (assoc-ref inputs "libc")))
(substitute* "dist/Cwd/Cwd.pm" ;; Use the right path for `pwd'.
(("/bin/pwd") (substitute* "dist/Cwd/Cwd.pm"
(which "pwd"))) (("/bin/pwd")
(which "pwd")))
(zero? (zero?
(system* "./Configure" (system* "./Configure"
(string-append "-Dprefix=" out) (string-append "-Dprefix=" out)
(string-append "-Dman1dir=" out "/share/man/man1") (string-append "-Dman1dir=" out "/share/man/man1")
(string-append "-Dman3dir=" out "/share/man/man3") (string-append "-Dman3dir=" out "/share/man/man3")
"-de" "-Dcc=gcc" "-de" "-Dcc=gcc"
"-Uinstallusrbinperl" "-Uinstallusrbinperl"
"-Dinstallstyle=lib/perl5" "-Dinstallstyle=lib/perl5"
"-Duseshrplib" "-Duseshrplib"
(string-append "-Dlocincpth=" libc "/include") (string-append "-Dlocincpth=" libc "/include")
(string-append "-Dloclibpth=" libc "/lib"))))) (string-append "-Dloclibpth=" libc "/lib")))))))))
%standard-phases)))
(native-search-paths (list (search-path-specification (native-search-paths (list (search-path-specification
(variable "PERL5LIB") (variable "PERL5LIB")
(files '("lib/perl5/site_perl"))))) (files '("lib/perl5/site_perl")))))