mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
gnu: perl-image-exiftool: Update to 12.50, use new package style.
* gnu/packages/photo.scm (perl-image-exiftool): Update to 12.50. [arguments]: Use G-expresisons. Remove trailing #t. Use #$output instead of assoc-ref. Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
parent
a5c422f958
commit
ab09e8e578
1 changed files with 12 additions and 15 deletions
|
@ -301,7 +301,7 @@ (define-public gphoto2
|
|||
(define-public perl-image-exiftool
|
||||
(package
|
||||
(name "perl-image-exiftool")
|
||||
(version "12.16")
|
||||
(version "12.50")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
|
@ -311,24 +311,21 @@ (define-public perl-image-exiftool
|
|||
;; New releases may take a while to hit CPAN.
|
||||
(string-append "https://www.sno.phy.queensu.ca/~phil/exiftool/"
|
||||
"Image-ExifTool-" version ".tar.gz")))
|
||||
(patches (search-patches "perl-image-exiftool-CVE-2021-22204.patch"))
|
||||
(sha256
|
||||
(base32
|
||||
"0skm22b3gg1bfk0amklrprpva41m6mkrhqp0gi7z1nmcf9ypjh61"))))
|
||||
"1a605rz00d7p866a22sw0s63m5a6y4xqqrzp7q7jyc0hbky43s5w"))))
|
||||
(build-system perl-build-system)
|
||||
(arguments
|
||||
'(#: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)))
|
||||
#t))))))
|
||||
(list #: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* ((pm (find-files #$output "^ExifTool\\.pm$"))
|
||||
(lib (dirname (dirname (car pm)))))
|
||||
(wrap-program (string-append #$output "/bin/exiftool")
|
||||
`("PERL5LIB" prefix (,lib)))))))))
|
||||
(home-page "https://metacpan.org/release/Image-ExifTool")
|
||||
(synopsis "Program and Perl library to manipulate EXIF and other metadata")
|
||||
(description "This package provides the @code{exiftool} command and the
|
||||
|
|
Loading…
Reference in a new issue