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

gnu: qpdf: Use 'modify-phases'. 

* gnu/packages/pdf.scm (qpdf)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-08-15 11:47:08 +03:00
parent 74a3c4bb6c
commit 0adfe0ccbe
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/pdf.scm
View File

@ -527,17 +527,17 @@ eval '(exit $?0)' && eval 'exec perl -wS \"$0\" ${1+\"$@\"}'
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:disallowed-references (,perl) `(#:disallowed-references (,perl)
#:phases (alist-cons-before #:phases
'configure 'patch-paths (modify-phases %standard-phases
(lambda _ (add-before 'configure 'patch-paths
(substitute* "make/libtool.mk" (lambda _
(("SHELL=/bin/bash") (substitute* "make/libtool.mk"
(string-append "SHELL=" (which "bash")))) (("SHELL=/bin/bash")
(substitute* (append (string-append "SHELL=" (which "bash"))))
'("qtest/bin/qtest-driver") (substitute* (append
(find-files "." "\\.test")) '("qtest/bin/qtest-driver")
(("/usr/bin/env") (which "env")))) (find-files "." "\\.test"))
%standard-phases))) (("/usr/bin/env") (which "env"))))))))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("perl" ,perl))) ("perl" ,perl)))