diff options
author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-07-16 02:00:04 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-08-31 10:42:03 +0200 |
commit | ab0a4c44d6fcfa2126a1b25c78b42f7d7dcaab38 (patch) | |
tree | d0a66a7baedc54714af25e1540ac9b93066be71d /gnu/packages/ghostscript.scm | |
parent | 0e0afe22e43b6a30d5d4a901fd3c246590250368 (diff) | |
download | guix-ab0a4c44d6fcfa2126a1b25c78b42f7d7dcaab38.tar guix-ab0a4c44d6fcfa2126a1b25c78b42f7d7dcaab38.tar.gz |
gnu: psutils: Stop installing broken scripts.
* gnu/packages/ghostscript.scm (psutils)[inputs]: Add perl-ipc-run3.
[arguments]: Add a new 'wrap-scripts phase.
Diffstat (limited to 'gnu/packages/ghostscript.scm')
-rw-r--r-- | gnu/packages/ghostscript.scm | 29 |
1 files changed, 21 insertions, 8 deletions
diff --git a/gnu/packages/ghostscript.scm b/gnu/packages/ghostscript.scm index 502b41bb99..19389bed46 100644 --- a/gnu/packages/ghostscript.scm +++ b/gnu/packages/ghostscript.scm @@ -118,17 +118,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 |