me
/
guix
Archived
1
0
Fork 0
Code

gnu: prinseq: Set #:guile argument of 'wrap-script'. 

* gnu/packages/bioinformatics.scm
  (prinseq)[arguments]<#:phases>{install}:
  Set #:guile argument of ‘wrap-script’.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Maxime Devos 2021-05-31 19:48:19 +02:00 committed by Ludovic Courtès
parent fadbac0ecc
commit c4989f7569
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/packages/bioinformatics.scm
View File

@ -7557,7 +7557,8 @@ experience substantial biological insertions and deletions.")
(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"))) (scripts (find-files "." "prinseq.*.pl"))
(guile (search-input-file "bin/guile")))
(substitute* scripts (substitute* scripts
(("\"perl -pe") (("\"perl -pe")
(string-append "\"" (which "perl") " -pe"))) (string-append "\"" (which "perl") " -pe")))
@ -7565,6 +7566,7 @@ experience substantial biological insertions and deletions.")
(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))
#:guile guile
`("PERL5LIB" ":" prefix `("PERL5LIB" ":" prefix
(,(getenv "PERL5LIB"))))) (,(getenv "PERL5LIB")))))
scripts))))))) scripts)))))))