guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

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

Browse source 
Fixes <https://bugs.gnu.org/30671>.
Reported by Ricardo Wurmus <rekado@elephly.net>.

* 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 <ludo@gnu.org>
This commit is contained in:
Alex Vong 2018-03-02 21:22:59 +08:00 committed by Ludovic Courtès
parent 270750d440
commit 63d9900296
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
gnu/packages/video.scm
View file

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