04/04: gnu: bristol: Do not check for JACK with ldd.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 73124d34227a7df8a5319c5497f62c6323a64800
Author: Ricardo Wurmus <address@hidden>
Date:   Mon May 2 19:41:55 2016 +0200

    gnu: bristol: Do not check for JACK with ldd.
    
    * gnu/packages/music.scm (bristol)[arguments]: Add build phase to
      disable runtime check for JACK.
---
 gnu/packages/music.scm |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 8465954..4946024 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -831,6 +831,13 @@ mixing, FFT scopes, MIDI automation and full scriptability 
in Scheme.")
                             (string-prefix? "i686" system)))
                (substitute* "bristol/Makefile.in"
                  (("-msse -mfpmath=sse") "")))
+             #t))
+         ;; We know that Bristol has been linked with JACK and we don't have
+         ;; ldd, so we can just skip this check.
+         (add-after 'unpack 'do-not-grep-for-jack
+           (lambda _
+             (substitute* "bin/startBristol.in"
+               (("ldd `which bristol` | grep jack") "echo guix"))
              #t)))))
     (inputs
      `(("alsa-lib" ,alsa-lib)