me
/
guix
Archived
1
0
Fork 0
Code

gnu: prinseq: Fix references to perl executable. 

* gnu/packages/bioinformatics.scm (prinseq)[arguments]: Embed concrete
references to the "perl" executable.
master
Ricardo Wurmus 2021-05-14 17:10:56 +02:00
parent 6755408927
commit 848126d008
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 6 additions and 2 deletions
gnu/packages

8
gnu/packages/bioinformatics.scm
View File

@ -7617,14 +7617,18 @@ experience substantial biological insertions and deletions.")
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))) (bin (string-append out "/bin"))
(scripts (find-files "." "prinseq.*.pl")))
(substitute* scripts
(("\"perl -pe")
(string-append "\"" (which "perl") " -pe")))
(for-each (lambda (file) (for-each (lambda (file)
(chmod file #o555) (chmod file #o555)
(install-file file bin) (install-file file bin)
(wrap-script (string-append bin "/" (basename file)) (wrap-script (string-append bin "/" (basename file))
`("PERL5LIB" ":" prefix `("PERL5LIB" ":" prefix
(,(getenv "PERL5LIB"))))) (,(getenv "PERL5LIB")))))
(find-files "." "prinseq.*.pl")))))))) scripts)))))))
(inputs (inputs
`(("guile" ,guile-3.0) ; for wrapper scripts `(("guile" ,guile-3.0) ; for wrapper scripts
("perl" ,perl) ("perl" ,perl)