summaryrefslogtreecommitdiff
path: root/gnu/packages/perl.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-03-24 18:04:51 +0000
committerChristopher Baines <mail@cbaines.net>2019-04-14 10:45:58 +0100
commitf73d4b1fdc151b8449297d06f790eec03e208260 (patch)
tree35f51b63e1a3ee095cd658f4a43dd95ee8bd8cb3 /gnu/packages/perl.scm
parent54a51789fdf67d2c3b78c02d0dd22f35d10328d2 (diff)
downloadpatches-f73d4b1fdc151b8449297d06f790eec03e208260.tar
patches-f73d4b1fdc151b8449297d06f790eec03e208260.tar.gz
gnu: Add perl-io-pager.
* gnu/packages/perl.scm (perl-io-pager): New variable.
Diffstat (limited to 'gnu/packages/perl.scm')
-rw-r--r--gnu/packages/perl.scm36
1 files changed, 36 insertions, 0 deletions
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index fd8a47825f..fcd946f37c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -49,6 +49,7 @@
#:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages freedesktop)
+ #:use-module (gnu packages less)
#:use-module (gnu packages perl-check)
#:use-module (gnu packages perl-compression)
#:use-module (gnu packages perl-web)
@@ -4306,6 +4307,41 @@ easier to develop interactive applications: is_interactive(), interactive(),
and busy().")
(license (package-license perl))))
+(define-public perl-io-pager
+ (package
+ (name "perl-io-pager")
+ (version "0.4")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/J/JP/JPIERCE/IO-Pager-"
+ version
+ "0.tgz"))
+ (sha256
+ (base32
+ "1vzdypsr7vkj8nnda9ccrksci6pqj5awwmi89l7x3mbpq36gad87"))))
+ (build-system perl-build-system)
+ (arguments
+ '(#:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'patch-less
+ (lambda _
+ (substitute* "lib/IO/Pager.pm"
+ (("/usr/local/bin/less', '/usr/bin/less")
+ (which "less")))
+ #t)))))
+ (propagated-inputs
+ `(("perl-file-which" ,perl-file-which)))
+ (inputs
+ `(("less" ,less)))
+ (home-page "https://metacpan.org/release/IO-Pager")
+ (synopsis "Select a pager and pipe text to it")
+ (description
+ "@code{IO::Pager} can be used to locate an available pager and use it to
+display output if a TTY is in use.")
+ (license (package-license perl))))
+
(define-public perl-io-string
(package
(name "perl-io-string")