me
/
guix
Archived
1
0
Fork 0

gnu: perl: Work around more "dotless @INC" build issues.

* gnu/packages/web.scm (perl-www-curl)[arguments]: Add 'set-search-path'
phase.
* gnu/packages/bioinformatics.scm (ngs-sdk)[arguments]: Augment
'configure' phase to set PERL5LIB.
* gnu/packages/image.scm (steghide)[arguments]: Add #:phases argument.
master
Ludovic Courtès 2017-08-05 00:11:41 +02:00
parent 240d3ceff7
commit a56bf101c6
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
3 changed files with 24 additions and 2 deletions

View File

@ -4680,6 +4680,10 @@ Roche 454, Ion Torrent and Pacific BioSciences SMRT.")
'configure 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
;; Allow 'konfigure.perl' to find 'package.prl'.
(setenv "PERL5LIB"
(string-append ".:" (getenv "PERL5LIB")))
;; The 'configure' script doesn't recognize things like ;; The 'configure' script doesn't recognize things like
;; '--enable-fast-install'. ;; '--enable-fast-install'.
(zero? (system* "./configure" (zero? (system* "./configure"

View File

@ -986,7 +986,16 @@ differences in file encoding, image quality, and other small variations.")
("libjpeg" ,libjpeg) ("libjpeg" ,libjpeg)
("zlib" ,zlib))) ("zlib" ,zlib)))
(arguments (arguments
`(#:make-flags '("CXXFLAGS=-fpermissive"))) ;required for MHashPP.cc `(#:make-flags '("CXXFLAGS=-fpermissive") ;required for MHashPP.cc
#:phases (modify-phases %standard-phases
(add-before 'configure 'set-perl-search-path
(lambda _
;; Work around "dotless @INC" build failure.
(setenv "PERL5LIB"
(string-append (getcwd) "/tests:"
(getenv "PERL5LIB")))
#t)))))
(home-page "http://steghide.sourceforge.net") (home-page "http://steghide.sourceforge.net")
(synopsis "Image and audio steganography") (synopsis "Image and audio steganography")
(description (description

View File

@ -3249,7 +3249,16 @@ RFC 6570.")
"1fmp9aib1kaps9vhs4dwxn7b15kgnlz9f714bxvqsd1j1q8spzsj")))) "1fmp9aib1kaps9vhs4dwxn7b15kgnlz9f714bxvqsd1j1q8spzsj"))))
(build-system perl-build-system) (build-system perl-build-system)
(arguments (arguments
'(#:tests? #f)) ;XXX: tests require network access '(#:tests? #f ;XXX: tests require network access
#:phases (modify-phases %standard-phases
(add-before 'configure 'set-search-path
(lambda _
;; Work around "dotless @INC" build failure.
(setenv "PERL5LIB"
(string-append (getcwd) ":"
(getenv "PERL5LIB")))
#t)))))
(native-inputs (native-inputs
`(("perl-module-install" ,perl-module-install))) `(("perl-module-install" ,perl-module-install)))
(inputs `(("curl" ,curl))) (inputs `(("curl" ,curl)))