futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: libvpx: Use 'modify-phases'.

Browse Source 
* gnu/packages/video.scm (libvpx)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-01-19 07:24:28 +02:00 committed by Mark H Weaver
parent fb197c0da4
commit 0e47b4e769
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gnu/packages/video.scm
View File

@ -785,20 +785,20 @@ projects while introducing many more.")
"15v7qw0ydyxn08ksb6lxn1l51pxgpwgshdwd3275yrr5hs86fv9h")))) "15v7qw0ydyxn08ksb6lxn1l51pxgpwgshdwd3275yrr5hs86fv9h"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (alist-replace `(#:phases
'configure (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (replace 'configure
(setenv "CONFIG_SHELL" (which "bash")) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (setenv "CONFIG_SHELL" (which "bash"))
(setenv "LDFLAGS" (let ((out (assoc-ref outputs "out")))
(string-append "-Wl,-rpath=" out "/lib")) (setenv "LDFLAGS"
(zero? (system* "./configure" (string-append "-Wl,-rpath=" out "/lib"))
"--enable-shared" (zero? (system* "./configure"
"--as=yasm" "--enable-shared"
;; Limit size to avoid CVE-2015-1258 "--as=yasm"
"--size-limit=16384x16384" ;; Limit size to avoid CVE-2015-1258
(string-append "--prefix=" out))))) "--size-limit=16384x16384"
%standard-phases) (string-append "--prefix=" out)))))))
#:tests? #f)) ; no check target #:tests? #f)) ; no check target
(native-inputs (native-inputs
`(("perl" ,perl) `(("perl" ,perl)