02/02: gnu: icon-naming-utils: Wrap with PERL5LIB to find XML::Simple.

[???]

iyzsong pushed a commit to branch master
in repository guix.

commit f4e9727786e69533c4b255d5558a992a475ad3b4
Author: 宋文武 <address@hidden>
Date:   Thu Jan 1 09:30:23 2015 +0800

    gnu: icon-naming-utils: Wrap with PERL5LIB to find XML::Simple.
    
    Fixes <http://bugs.gnu.org/19367>.
    
    * gnu/packages/gnome.scm (icon-naming-utils)[arguments]: New field.
---
 gnu/packages/gnome.scm |   12 ++++++++++++
 1 files changed, 12 insertions(+), 0 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 1ff9e85..a2ef712 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")