From b0f6d51f78d97fd228009ddac0a1a6bb9edc54fd Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 16 Jul 2023 02:00:04 +0200 Subject: gnu: psutils: Stop installing broken scripts. * gnu/packages/ghostscript.scm (psutils)[inputs]: Add perl-ipc-run3. [arguments]: Add a new 'wrap-scripts phase. --- gnu/packages/ghostscript.scm | 29 +++++++++++++++++++++-------- 1 file changed, 21 insertions(+), 8 deletions(-) (limited to 'gnu/packages') diff --git a/gnu/packages/ghostscript.scm b/gnu/packages/ghostscript.scm index 3c85f61d88..d3d530faba 100644 --- a/gnu/packages/ghostscript.scm +++ b/gnu/packages/ghostscript.scm @@ -115,17 +115,30 @@ paper size.") (base32 "1nmp0hb7c4a315vv1mqw2cbckvca8bzh1cv3gdvwwy24w9qba6p3")))) (build-system gnu-build-system) - (inputs (list perl)) + (inputs (list perl perl-ipc-run3)) (native-inputs (list libpaper)) (arguments - (list #:tests? #f ;FIXME: requires files not present in tarball - #:configure-flags - ;; Help the build system locate Perl when cross-compiling. - (if (%current-target-system) - #~(list (string-append "ac_cv_path_PERL=" - (search-input-file %build-inputs "bin/perl"))) - #~'()))) + (list + #:tests? #f ; FIXME: requires files not present in tarball + #:configure-flags + ;; Help the build system locate Perl when cross-compiling. + (if (%current-target-system) + #~(list (string-append "ac_cv_path_PERL=" + (search-input-file %build-inputs "bin/perl"))) + #~'()) + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'wrap-scripts + (lambda _ + (let ((perl5lib (getenv "PERL5LIB"))) + (for-each + (lambda (file) + (wrap-program file + `("PERL5LIB" ":" prefix + (,(string-append perl5lib ":" #$output + "/lib/perl5/site_perl"))))) + (find-files (string-append #$output "/bin") ".")))))))) (synopsis "Collection of utilities for manipulating PostScript documents") (description "PSUtils is a collection of utilities for manipulating PostScript -- cgit 1.4.1