From 034eb1b0b624ccd14ed846f402ce7670e6e3f317 Mon Sep 17 00:00:00 2001 From: gemmaro Date: Sat, 31 Aug 2024 11:07:55 +0900 Subject: gnu: perl-critic: Make the perlcritic command available. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/perl.scm (perl-critic)[arguments]<#:phases>: Add phases to wrap the perlcritic command and test it works. [inputs]: Add bash-minimal for wrap-program. Change-Id: I8c506e655fdf2b1c33e850579c6a5adcbbd37192 Signed-off-by: Ludovic Courtès --- gnu/packages/perl.scm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'gnu/packages') diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index 380cf893b2..31576dedf9 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -2294,7 +2294,22 @@ (define-public perl-critic (base32 "1nzxpn71mrpp85yxrxlraj52q2skvf9ja887ls11d57h6smg1vmz")))) (build-system perl-build-system) + (arguments + (list + #:phases #~(modify-phases %standard-phases + (add-after 'install 'wrap-perlcritic + (lambda _ + (wrap-program (string-append #$output "/bin/perlcritic") + `("PERL5LIB" ":" prefix + (,(getenv "PERL5LIB") ,(string-append #$output + "/lib/perl5/site_perl")))))) + (add-after 'wrap-perlcritic 'check-perlcritic + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (invoke (string-append #$output "/bin/perlcritic") + "--version"))))))) (native-inputs (list perl-module-build perl-test-deep)) + (inputs (list bash-minimal)) (propagated-inputs (list perltidy perl-exception-class perl-io-string -- cgit v1.2.3