gnu: psutils: Stop installing broken scripts.

* gnu/packages/ghostscript.scm (psutils)[inputs]: Add perl-ipc-run3.
[arguments]: Add a new 'wrap-scripts phase.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-16 02:00:04 +02:00 committed by Ludovic Courtès
parent 0e0afe22e4
commit ab0a4c44d6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -118,17 +118,30 @@ (define-public psutils
(base32 (base32
"1nmp0hb7c4a315vv1mqw2cbckvca8bzh1cv3gdvwwy24w9qba6p3")))) "1nmp0hb7c4a315vv1mqw2cbckvca8bzh1cv3gdvwwy24w9qba6p3"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (list perl)) (inputs (list perl perl-ipc-run3))
(native-inputs (native-inputs
(list libpaper)) (list libpaper))
(arguments (arguments
(list #:tests? #f ;FIXME: requires files not present in tarball (list
#:tests? #f ; FIXME: requires files not present in tarball
#:configure-flags #:configure-flags
;; Help the build system locate Perl when cross-compiling. ;; Help the build system locate Perl when cross-compiling.
(if (%current-target-system) (if (%current-target-system)
#~(list (string-append "ac_cv_path_PERL=" #~(list (string-append "ac_cv_path_PERL="
(search-input-file %build-inputs "bin/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") (synopsis "Collection of utilities for manipulating PostScript documents")
(description (description
"PSUtils is a collection of utilities for manipulating PostScript "PSUtils is a collection of utilities for manipulating PostScript