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

gnu: handbrake: Return #t from all phases. 

* gnu/packages/video.scm (handbrake)[arguments]: Substitute INVOKE for
SYSTEM*.
master
Tobias Geerinckx-Rice 2018-06-21 18:41:45 +02:00
parent bf6edb9596
commit da6f345c71
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/packages/video.scm
View File

@ -2363,7 +2363,7 @@ supported players in addition to this package.")
;; Patch the Makefile so that it doesn't bootstrap again. ;; Patch the Makefile so that it doesn't bootstrap again.
(substitute* "gtk/module.rules" (substitute* "gtk/module.rules"
((".*autogen\\.sh.*") "")) ((".*autogen\\.sh.*") ""))
(zero? (system* "sh" "./gtk/autogen.sh")))) (invoke "sh" "./gtk/autogen.sh")))
(add-before 'configure 'disable-contrib (add-before 'configure 'disable-contrib
(lambda _ (lambda _
(substitute* "make/include/main.defs" (substitute* "make/include/main.defs"
@ -2385,9 +2385,9 @@ supported players in addition to this package.")
;; errors on unrecognized arguments, ;; errors on unrecognized arguments,
;; e.g. --enable-fast-install ;; e.g. --enable-fast-install
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(zero? (apply system* "./configure" (apply invoke "./configure"
(string-append "--prefix=" out) (string-append "--prefix=" out)
(or configure-flags '())))))) (or configure-flags '())))))
(add-after 'configure 'chdir-build (add-after 'configure 'chdir-build
(lambda _ (chdir "./build") #t))))) (lambda _ (chdir "./build") #t)))))
(home-page "https://handbrake.fr") (home-page "https://handbrake.fr")