nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: perl: Use configure-flags. 

* gnu/packages/perl.scm (perl)[arguments]: Use configure-flags.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Ben Woodcroft 2016-09-24 22:44:55 +10:00 committed by Ludovic Courtès
parent 8d29bfa9fc
commit 56ee1d2015
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
gnu/packages/perl.scm
View File

@ -61,6 +61,19 @@
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f '(#:tests? #f
#:configure-flags
(let ((out (assoc-ref %outputs "out"))
(libc (assoc-ref %build-inputs "libc")))
(list
(string-append "-Dprefix=" out)
(string-append "-Dman1dir=" out "/share/man/man1")
(string-append "-Dman3dir=" out "/share/man/man3")
"-de" "-Dcc=gcc"
"-Uinstallusrbinperl"
"-Dinstallstyle=lib/perl5"
"-Duseshrplib"
(string-append "-Dlocincpth=" libc "/include")
(string-append "-Dloclibpth=" libc "/lib")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'setup-configure (add-before 'configure 'setup-configure
@ -76,23 +89,10 @@
(("-std=c89") (("-std=c89")
"-std=gnu89")) "-std=gnu89"))
#t)) #t))
(replace (replace 'configure
'configure (lambda* (#:key configure-flags #:allow-other-keys)
(lambda* (#:key inputs outputs #:allow-other-keys) (format #t "Perl configure flags: ~s~%" configure-flags)
(let ((out (assoc-ref outputs "out")) (zero? (apply system* "./Configure" configure-flags))))
(libc (assoc-ref inputs "libc")))
(zero?
(system* "./Configure"
(string-append "-Dprefix=" out)
(string-append "-Dman1dir=" out "/share/man/man1")
(string-append "-Dman3dir=" out "/share/man/man3")
"-de" "-Dcc=gcc"
"-Uinstallusrbinperl"
"-Dinstallstyle=lib/perl5"
"-Duseshrplib"
(string-append "-Dlocincpth=" libc "/include")
(string-append "-Dloclibpth=" libc "/lib"))))))
(add-before (add-before
'strip 'make-shared-objects-writable 'strip 'make-shared-objects-writable
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)