08/08: gnu: youtube-viewer: Add '$out/lib/perl5/site_perl/' to search path.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 63d99002961c8845cd16ae4b5e9ae6b273d43a80
Author: Alex Vong <address@hidden>
Date:   Fri Mar 2 21:22:59 2018 +0800

    gnu: youtube-viewer: Add '$out/lib/perl5/site_perl/' to search path.
    
    Fixes <https://bugs.gnu.org/30671>.
    Reported by Ricardo Wurmus <address@hidden>.
    
    * gnu/packages/video.scm (youtube-viewer)[arguments]: In 'wrap-program'
    phase, add '$out/lib/perl5/site_perl/' to search path.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/video.scm | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index e4e71e9..7d07200 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -1344,16 +1344,18 @@ audio, images) from the Web.  It can use either mpv or 
vlc for playback.")
                   (guix build utils)
                   (srfi srfi-26))
        #:module-build-flags '("--gtk")
-       #:phases (modify-phases %standard-phases
-                  (add-after 'install 'wrap-program
-                    (lambda* (#:key outputs #:allow-other-keys)
-                      (let ((bin-dir (string-append (assoc-ref outputs "out")
-                                                    "/bin/"))
-                            (perl-path (getenv "PERL5LIB")))
-                        (for-each (cut wrap-program <>
-                                       `("PERL5LIB" ":" prefix (,perl-path)))
-                                  (find-files bin-dir))
-                        #t))))))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-program
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin-dir (string-append out "/bin/"))
+                    (site-dir (string-append out "/lib/perl5/site_perl/"))
+                    (lib-path (getenv "PERL5LIB")))
+               (for-each (cut wrap-program <>
+                              `("PERL5LIB" ":" prefix (,lib-path ,site-dir)))
+                         (find-files bin-dir))
+               #t))))))
     (synopsis
      "Lightweight application for searching and streaming videos from YouTube")
     (description