From e644e45aec26dc2069c18ec9fb6e96b8e4af59f3 Mon Sep 17 00:00:00 2001
From: Raghav Gururajan <rg@raghavgururajan.name>
Date: Tue, 20 Jul 2021 07:54:56 -0400
Subject: 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 f19bdc7ef6..399327741f 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")))
-- 
cgit v1.2.3