~ruther/guix-local

f4e9727786e69533c4b255d5558a992a475ad3b4 — 宋文武 11 years ago 27ef7f4 
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.
patch browse .tar.gz 
1 files changed, 12 insertions(+), 0 deletions(-)

M gnu/packages/gnome.scm

M gnu/packages/gnome.scm => gnu/packages/gnome.scm +12 -0
@@ 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")