me
/
guix
Archived
1
0
Fork 0
Code

gnu: abcde: Add missing Perl dependencies. 

* gnu/packages/cdrom.scm (abcde)[inputs]: Add perl-musicbrainz-discid,
perl-webservice-musicbrainz, and perl-mojolicious.
[arguments] <wrap>: Define PERL5LIB in the wrapper.
master
Ludovic Courtès 2018-06-30 17:25:10 +02:00
parent 5ae27f577b
commit 949457c150
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/cdrom.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org> ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
@ -46,9 +46,10 @@
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages man)
#:use-module (gnu packages m4) #:use-module (gnu packages m4)
#:use-module (gnu packages man)
#:use-module (gnu packages mp3) #:use-module (gnu packages mp3)
#:use-module (gnu packages music)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages elf) #:use-module (gnu packages elf)
#:use-module (gnu packages wxwidgets) #:use-module (gnu packages wxwidgets)
@ -57,6 +58,7 @@
#:use-module (gnu packages readline) #:use-module (gnu packages readline)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages perl-web)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages photo) #:use-module (gnu packages photo)
@ -513,6 +515,9 @@ from an audio CD.")
(parano (assoc-ref inputs "cdparanoia")) (parano (assoc-ref inputs "cdparanoia"))
(which (assoc-ref inputs "which")) (which (assoc-ref inputs "which"))
(discid (assoc-ref inputs "cd-discid")) (discid (assoc-ref inputs "cd-discid"))
(perl-discid (assoc-ref inputs "perl-musicbrainz-discid"))
(perl-ws (assoc-ref inputs "perl-webservice-musicbrainz"))
(perl-mojo (assoc-ref inputs "perl-mojolicious"))
(flac (assoc-ref inputs "flac")) (flac (assoc-ref inputs "flac"))
(out (assoc-ref outputs "out"))) (out (assoc-ref outputs "out")))
(define (wrap file) (define (wrap file)
@ -524,7 +529,14 @@ from an audio CD.")
which "/bin:" which "/bin:"
vorbis "/bin:" vorbis "/bin:"
discid "/bin:" discid "/bin:"
parano "/bin"))))) parano "/bin")))
`("PERL5LIB" ":" prefix
(,(string-append perl-discid
"/lib/perl5/site_perl:"
perl-ws
"/lib/perl5/site_perl:"
perl-mojo
"/lib/perl5/site_perl")))))
(for-each wrap (for-each wrap
(find-files (string-append out "/bin") (find-files (string-append out "/bin")
@ -538,6 +550,10 @@ from an audio CD.")
("vorbis-tools" ,vorbis-tools) ("vorbis-tools" ,vorbis-tools)
("flac" ,flac) ("flac" ,flac)
("perl-musicbrainz-discid" ,perl-musicbrainz-discid)
("perl-webservice-musicbrainz" ,perl-webservice-musicbrainz)
("perl-mojolicious" ,perl-mojolicious) ;indirect dependency
;; A couple of Python and Perl scripts are included. ;; A couple of Python and Perl scripts are included.
("python" ,python) ("python" ,python)
("perl" ,perl))) ("perl" ,perl)))