gnu: perl-image-exiftool: Update to 10.55.

* gnu/packages/photo.scm (perl-image-exiftool): Update to 10.55.
[arguments]: Use modify-phases syntax.
This commit is contained in:
Leo Famulari 2017-06-25 00:00:41 -04:00
parent d17e085a59
commit 33717a17aa
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 13 additions and 13 deletions

View File

@ -177,7 +177,7 @@ MTP, and much more.")
(define-public perl-image-exiftool
(package
(name "perl-image-exiftool")
(version "10.40")
(version "10.55")
(source (origin
(method url-fetch)
(uri (string-append
@ -185,20 +185,20 @@ MTP, and much more.")
version ".tar.gz"))
(sha256
(base32
"1p05d9k94win8a24cr7lsllb6wjl3dagsmdbcxzv6f68z7i1jdly"))))
"0z8zwjjfvyllnhsafhddbybywpgqv0pl1dbn1g034cs27yj836q2"))))
(build-system perl-build-system)
(arguments
'(#:phases (alist-cons-after
'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
;; Make sure the 'exiftool' commands finds the library.
;; XXX: Shouldn't it be handled by PERL-BUILD-SYSTEM?
(let* ((out (assoc-ref outputs "out"))
(pm (find-files out "^ExifTool\\.pm$"))
(lib (dirname (dirname (car pm)))))
(wrap-program (string-append out "/bin/exiftool")
`("PERL5LIB" prefix (,lib)))))
%standard-phases)))
'(#:phases
(modify-phases %standard-phases
(add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
;; Make sure the 'exiftool' commands finds the library.
;; XXX: Shouldn't it be handled by PERL-BUILD-SYSTEM?
(let* ((out (assoc-ref outputs "out"))
(pm (find-files out "^ExifTool\\.pm$"))
(lib (dirname (dirname (car pm)))))
(wrap-program (string-append out "/bin/exiftool")
`("PERL5LIB" prefix (,lib)))))))))
(home-page "http://search.cpan.org/dist/Image-ExifTool")
(synopsis "Program and Perl library to manipulate EXIF and other metadata")
(description "This package provides the @code{exiftool} command and the