From da6f345c7104dfd39911ec9f27b19107ae63ef32 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Thu, 21 Jun 2018 18:41:45 +0200 Subject: [PATCH] gnu: handbrake: Return #t from all phases. * gnu/packages/video.scm (handbrake)[arguments]: Substitute INVOKE for SYSTEM*. --- gnu/packages/video.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index 68c5d8e965..d76ab881d2 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -2363,7 +2363,7 @@ (define-public handbrake ;; Patch the Makefile so that it doesn't bootstrap again. (substitute* "gtk/module.rules" ((".*autogen\\.sh.*") "")) - (zero? (system* "sh" "./gtk/autogen.sh")))) + (invoke "sh" "./gtk/autogen.sh"))) (add-before 'configure 'disable-contrib (lambda _ (substitute* "make/include/main.defs" @@ -2385,9 +2385,9 @@ (define-public handbrake ;; errors on unrecognized arguments, ;; e.g. --enable-fast-install (let ((out (assoc-ref outputs "out"))) - (zero? (apply system* "./configure" - (string-append "--prefix=" out) - (or configure-flags '())))))) + (apply invoke "./configure" + (string-append "--prefix=" out) + (or configure-flags '()))))) (add-after 'configure 'chdir-build (lambda _ (chdir "./build") #t))))) (home-page "https://handbrake.fr")