From f4e9727786e69533c4b255d5558a992a475ad3b4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Thu, 1 Jan 2015 09:30:23 +0800 Subject: [PATCH] gnu: icon-naming-utils: Wrap with PERL5LIB to find XML::Simple. Fixes . * gnu/packages/gnome.scm (icon-naming-utils)[arguments]: New field. --- gnu/packages/gnome.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index 1ff9e85957..a2ef712220 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -312,6 +312,18 @@ for settings shared by various components of the GNOME desktop.") (inputs `(("perl" ,perl) ("perl-xml-simple" ,perl-xml-simple))) + (arguments + '(#:phases + (alist-cons-after + 'install 'set-load-paths + ;; Tell 'icon-name-mapping' where XML::Simple is. + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (prog (string-append out "/libexec/icon-name-mapping"))) + (wrap-program + prog + `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))) + %standard-phases))) (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification") (synopsis "Utility to implement the Freedesktop Icon Naming Specification")