me/guix
Archived
1
0
Fork 0
Code Activity

gnu: perl: Split configure phase.

Browse source 
* gnu/packages/perl.scm (perl)[arguments]: Split 'configure' phase into
'setup-configure' and 'configure' phases.
This commit is contained in:
Ben Woodcroft 2016-09-19 21:11:19 +10:00
parent b5b5105c3d
commit 9f2989b6cc
No known key found for this signature in database
GPG key ID: E44DCCD146E0CCF4
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/perl.scm
View file

@ -62,11 +62,8 @@
'(#:tests? #f '(#:tests? #f
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace (add-before 'configure 'setup-configure
'configure (lambda _
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(libc (assoc-ref inputs "libc")))
;; Use the right path for `pwd'. ;; Use the right path for `pwd'.
(substitute* "dist/PathTools/Cwd.pm" (substitute* "dist/PathTools/Cwd.pm"
(("/bin/pwd") (("/bin/pwd")
@ -77,7 +74,12 @@
(substitute* "cflags.SH" (substitute* "cflags.SH"
(("-std=c89") (("-std=c89")
"-std=gnu89")) "-std=gnu89"))
#t))
(replace
'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(libc (assoc-ref inputs "libc")))
(zero? (zero?
(system* "./Configure" (system* "./Configure"
(string-append "-Dprefix=" out) (string-append "-Dprefix=" out)