me
/
guix
Archived
1
0
Fork 0
Code

gnu: perl-term-readline-gnu: Fix library initialization. 

* gnu/packages/perl.scm (perl-term-readline-gnu)[arguments]: Patch library
search directories into Makefile.PL so that the resulting Gnu.so library
contains expected DT_NEEDED entries for libreadline and libncurses.
master
Eric Bavier 2020-01-22 22:50:55 -06:00
parent c356e65610
commit 30adc9e0e1
No known key found for this signature in database
GPG Key ID: FD73CAC719D32566
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/perl.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2019 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013, 2019 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015, 2016, 2017, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2016, 2017, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2019 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2015, 2016, 2017, 2019, 2020 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;; Copyright © 2016, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net> ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
@ -8513,12 +8513,16 @@ screen size, and retrieval/modification of the control characters.")
`(#:tests? #f ; Tests fail without other Term::ReadLine interfaces present `(#:tests? #f ; Tests fail without other Term::ReadLine interfaces present
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'patch-search-lib (add-before 'configure 'patch-search-lib
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
(substitute* "Makefile.PL" (substitute* "Makefile.PL"
;; The configuration provides no way to pass ;; The configuration provides no way easy was to pass
;; additional directories to search for the ncurses ;; additional directories to search for libraries, so
;; library, so just skip the search. ;; just patch in the flags.
(("&search_lib\\('-lncurses'\\)") "'-lncurses'"))))))) (("-lreadline" &)
(format #f "-L~a/lib ~a" (assoc-ref inputs "readline") &))
(("&search_lib\\('-lncurses'\\)")
(string-append "'-L" (assoc-ref inputs "ncurses") "/lib"
" -lncurses'"))))))))
(home-page "https://metacpan.org/release/Term-ReadLine-Gnu") (home-page "https://metacpan.org/release/Term-ReadLine-Gnu")
(synopsis "GNU Readline/History Library interface for Perl") (synopsis "GNU Readline/History Library interface for Perl")
(description "This module implements an interface to the GNU Readline (description "This module implements an interface to the GNU Readline