branch master updated: gnu: pipe-viewer: Correct references to youtube-dl program.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

raghavgururajan pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new e644e45  gnu: pipe-viewer: Correct references to youtube-dl program.
e644e45 is described below

commit e644e45aec26dc2069c18ec9fb6e96b8e4af59f3
Author: Raghav Gururajan <rg@raghavgururajan.name>
AuthorDate: Tue Jul 20 07:54:56 2021 -0400

    gnu: pipe-viewer: Correct references to youtube-dl program.
    
    * gnu/packages/videos.scm (pipe-viewer)[phases](patch-source): Modify.
---
 gnu/packages/video.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index f19bdc7..3993277 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -1055,7 +1055,11 @@ H.264 (MPEG-4 AVC) video streams.")
        (modify-phases %standard-phases
          (add-after 'unpack 'patch-source
            (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* (find-files "." ".*-viewer$")
+             (substitute* (find-files "lib" "\\.pm$")
+               (("\"youtube-dl\"")
+                (format #f "\"~a/bin/youtube-dl\""
+                        (assoc-ref inputs "youtube-dl"))))
+             (substitute* (find-files "bin" ".*-viewer$")
                (("'ffmpeg'")
                 (format #f "'~a/bin/ffmpeg'"
                         (assoc-ref inputs "ffmpeg")))