[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: gnu: Add perl-term-readline-gnu.
From: |
guix-commits |
Subject: |
02/03: gnu: Add perl-term-readline-gnu. |
Date: |
Sat, 18 Jan 2020 00:16:03 -0500 (EST) |
bavier pushed a commit to branch master
in repository guix.
commit ccb6b98bfe4a40f68d862dcc8be12028a6635704
Author: Eric Bavier <address@hidden>
AuthorDate: Sat Dec 7 21:45:53 2019 -0600
gnu: Add perl-term-readline-gnu.
* gnu/packages/perl.scm (perl-term-readline-gnu): New variable.
---
gnu/packages/perl.scm | 36 ++++++++++++++++++++++++++++++++++++
1 file changed, 36 insertions(+)
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index c94afbc..13f038d 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -52,10 +52,12 @@
#:use-module (gnu packages compression)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages less)
+ #:use-module (gnu packages ncurses)
#:use-module (gnu packages perl-check)
#:use-module (gnu packages perl-compression)
#:use-module (gnu packages perl-web)
#:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages readline)
#:use-module (gnu packages textutils))
;;;
@@ -8491,6 +8493,40 @@ other terminal related features, including
retrieval/modification of the
screen size, and retrieval/modification of the control characters.")
(license (package-license perl))))
+(define-public perl-term-readline-gnu
+ (package
+ (name "perl-term-readline-gnu")
+ (version "1.36")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "mirror://cpan/authors/id/H/HA/HAYASHI/"
+ "Term-ReadLine-Gnu-" version ".tar.gz"))
+ (sha256
+ (base32
+ "09b9mcmp09kdfh5jaqdr528yny8746hvn3f185aqd6rw06jgf24s"))))
+ (build-system perl-build-system)
+ (inputs
+ `(("readline" ,readline)
+ ("ncurses" ,ncurses)))
+ (arguments
+ `(#:tests? #f ; Tests fail without other Term::ReadLine interfaces present
+ #:phases (modify-phases %standard-phases
+ (add-before 'configure 'patch-search-lib
+ (lambda _
+ (substitute* "Makefile.PL"
+ ;; The configuration provides no way to pass
+ ;; additional directories to search for the ncurses
+ ;; library, so just skip the search.
+ (("&search_lib\\('-lncurses'\\)") "'-lncurses'")))))))
+ (home-page "https://metacpan.org/release/Term-ReadLine-Gnu")
+ (synopsis "GNU Readline/History Library interface for Perl")
+ (description "This module implements an interface to the GNU Readline
+library. It gives you input line editing facilities, input history management
+facilities, completion facilities, etc. Term::ReadLine::Gnu is upwards
+compatible with Term::ReadLine.")
+ (license (package-license perl))))
+
(define-public perl-term-size-any
(package
(name "perl-term-size-any")