@@ -35,6 +35,7 @@ (define-module (gnu packages license)
#:use-module (guix build-system python)
#:use-module (guix build-system pyproject)
#:use-module (guix download)
+ #:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix licenses)
#:use-module (guix packages))
@@ -181,17 +182,23 @@ (define-public licensecheck
perl-string-escape
perl-string-license))
(arguments
- `(#:phases
- (modify-phases %standard-phases
- (add-after 'install 'wrap-program
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (perllib (string-append out "/lib/perl5/site_perl/"
- ,(package-version perl))))
- (wrap-program (string-append out "/bin/licensecheck")
- `("PERL5LIB" ":"
- prefix (,(string-append perllib ":" (getenv "PERL5LIB")))))
- #t))))))
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'wrap 'wrap-licensecheck
+ (lambda _
+ (let ((licensecheck (string-append #$output "/bin/licensecheck"))
+ (perl5lib (string-append #$output "/lib/perl5/site_perl/"
+ #$(package-version perl))))
+ (wrap-program licensecheck
+ `("PERL5LIB" ":" prefix
+ ,(list perl5lib (getenv "PERL5LIB")))))))
+ (add-after 'wrap-program 'check-wrap
+ (lambda* (#:key tests? #:allow-other-keys)
+ (when tests?
+ (unsetenv "PERL5LIB")
+ (invoke/quiet (string-append #$output "/bin/licensecheck")
+ "--version")))))))
(home-page "https://metacpan.org/release/App-Licensecheck")
(synopsis "License checker for source files")
(description "Licensecheck attempts to determine the license that applies