(address . guix-patches@gnu.org)(address . alexvong1995@gmail.com)
87woyuk28k.fsf@gmail.com
From 2ad112584b40754fadb8269b7d5880500abe0050 Mon Sep 17 00:00:00 2001
From: Alex Vong <alexvong1995@gmail.com>
Date: Fri, 2 Mar 2018 21:22:59 +0800
Subject: [PATCH] gnu: youtube-viewer: Add '$out/lib/perl5/site_perl/' to
search path.
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.
---
gnu/packages/video.scm | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
Toggle diff (35 lines)
diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 8190b0ffc..74dd290a3 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
--
2.16.2
Cheers,
Alex
-----BEGIN PGP SIGNATURE-----
iHUEARYIAB0WIQTdXC2pN4kXBjiMDs8cGaIXrbrArQUCWplYqwAKCRAcGaIXrbrA
rd1xAP0WH5dlwvwesUtgxc40+8DYpO/1HoSvAHpYlFnDmUD0FwD/eA9oKL9tappR
taZvpLY18N3Jf4Y3mSk06zraoc3+jgo=
=Qy/j
-----END PGP SIGNATURE-----