summaryrefslogtreecommitdiff
path: root/dev-perl/Term-ReadLine-TTYtter
diff options
context:
space:
mode:
authorV3n3RiX <venerix@redcorelinux.org>2018-07-14 21:03:06 +0100
committerV3n3RiX <venerix@redcorelinux.org>2018-07-14 21:03:06 +0100
commit8376ef56580626e9c0f796d5b85b53a0a1c7d5f5 (patch)
tree7681bbd4e8b05407772df40a4bf04cbbc8afc3fa /dev-perl/Term-ReadLine-TTYtter
parent30a9caf154332f12ca60756e1b75d2f0e3e1822d (diff)
gentoo resync : 14.07.2018
Diffstat (limited to 'dev-perl/Term-ReadLine-TTYtter')
-rw-r--r--dev-perl/Term-ReadLine-TTYtter/Manifest4
-rw-r--r--dev-perl/Term-ReadLine-TTYtter/Term-ReadLine-TTYtter-1.400.0-r1.ebuild18
-rw-r--r--dev-perl/Term-ReadLine-TTYtter/files/Term-ReadLine-TTYtter-1.4-nointeractive.patch78
-rw-r--r--dev-perl/Term-ReadLine-TTYtter/metadata.xml24
4 files changed, 124 insertions, 0 deletions
diff --git a/dev-perl/Term-ReadLine-TTYtter/Manifest b/dev-perl/Term-ReadLine-TTYtter/Manifest
new file mode 100644
index 000000000000..326048fc10a6
--- /dev/null
+++ b/dev-perl/Term-ReadLine-TTYtter/Manifest
@@ -0,0 +1,4 @@
+AUX Term-ReadLine-TTYtter-1.4-nointeractive.patch 2438 BLAKE2B 1ea21dfd1601f5da349a25f274de4bb937e83aa49ed8c26f21ca2414e1ad51f4c40d408d929b68e096c49b0a6430f8a80fb2edd289fbd566508de24699972adb SHA512 7d0676503454f46df59e5e1b6ff6c8f63a31df949dd1ca13198c4ad5bc837bdf97bc1f44a04a43e2461e84d086c824623dea34d2f30aeb2d2e5342bc2d07132e
+DIST Term-ReadLine-TTYtter-1.4.tar.gz 52093 BLAKE2B 47194ed428729bf97d8337731b25ac0164cfe9f853854b5e2aad6936f7ed34fa8552bffc150ef405f97947a63cc12259634c5b084c21653c03b6c41af61c6e3e SHA512 6e49c78a935259e99cabe5c9750fd5e90e205c754955d23c50227bbfe3dcb40d56ccc447d3f516ff34195d3fb411b13ae61a6c32c776231f794d2fca9da8fd1a
+EBUILD Term-ReadLine-TTYtter-1.400.0-r1.ebuild 373 BLAKE2B d67cf6d069546b43a76c4e4d31389b0b6a3fdafc95b238c9baf966a6cc04dd904906ad58b0674c2a638714e7bdce5ede2cdd089cfce302545abf3ac97e467083 SHA512 62f4e506f220eec159a2788d147ee44b2d6f406c45647e8ab51e131cae46a9a994e9f5e5354aa73d3bdf6e079c8804232470020871d3e0cb3c9247dbfbd343ba
+MISC metadata.xml 909 BLAKE2B 282901ae74553c3f2b842fcd26a9b8092b0209c908f18e6d4e09742952a8ce591f302b54d2950c9a4a3162b279e82d26a3120f2165856244f4fe074eb98e99b4 SHA512 a109c56b55ac6fc9fd1c9aac5ec66e3d492eea7972c5f7f57e2ff5378b495dfffd28d689b2ae7562a4dc8fdf2c31baf2a89850040c4a7ffd393c3252fc051d97
diff --git a/dev-perl/Term-ReadLine-TTYtter/Term-ReadLine-TTYtter-1.400.0-r1.ebuild b/dev-perl/Term-ReadLine-TTYtter/Term-ReadLine-TTYtter-1.400.0-r1.ebuild
new file mode 100644
index 000000000000..4ff8c3144302
--- /dev/null
+++ b/dev-perl/Term-ReadLine-TTYtter/Term-ReadLine-TTYtter-1.400.0-r1.ebuild
@@ -0,0 +1,18 @@
+# Copyright 1999-2018 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=6
+
+DIST_AUTHOR=CKAISER
+DIST_VERSION=1.4
+
+inherit perl-module
+
+DESCRIPTION="Quick implementation of readline utilities for ttytter"
+
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+IUSE=""
+
+PATCHES=( "${FILESDIR}/${PN}-1.4-nointeractive.patch" )
+RDEPEND="dev-perl/TermReadKey"
diff --git a/dev-perl/Term-ReadLine-TTYtter/files/Term-ReadLine-TTYtter-1.4-nointeractive.patch b/dev-perl/Term-ReadLine-TTYtter/files/Term-ReadLine-TTYtter-1.4-nointeractive.patch
new file mode 100644
index 000000000000..81050510252b
--- /dev/null
+++ b/dev-perl/Term-ReadLine-TTYtter/files/Term-ReadLine-TTYtter-1.4-nointeractive.patch
@@ -0,0 +1,78 @@
+From ec0b1fd3853df6cb577a99382cbcfd7ecc85d372 Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentnl@gentoo.org>
+Date: Wed, 28 Feb 2018 09:50:13 +1300
+Subject: Use file for input data instead of STDIN ( non-interactive testing )
+
+test.pl as-is is useless because it executes no readline code when in
+automated testing conditions.
+
+Additionally, attempting to use the built-in file redirection
+mechanisms is useless, as there's no way to set those parts from
+
+ make test
+
+And 'preput' support causes readline to barf when the input stream
+is not a real TTY.
+
+Subsequently, the pre-inserted "exit" also has to be removed.
+
+Bug: https://bugs.gentoo.org/624044
+---
+ t/input.txt | 2 ++
+ test.pl | 23 +++--------------------
+ 2 files changed, 5 insertions(+), 20 deletions(-)
+ create mode 100644 t/input.txt
+
+diff --git a/t/input.txt b/t/input.txt
+new file mode 100644
+index 0000000..6077553
+--- /dev/null
++++ b/t/input.txt
+@@ -0,0 +1,2 @@
++printf "input ok: sqrt(42)^2 == %20.20f", sqrt(42) * sqrt(42);
++exit 0
+diff --git a/test.pl b/test.pl
+index fe99e2f..1f87749 100644
+--- a/test.pl
++++ b/test.pl
+@@ -10,26 +10,9 @@ use Term::ReadLine;
+ use Carp;
+ $SIG{__WARN__} = sub { warn Carp::longmess(@_) };
+
+-my $ev;
+-if ($ENV{$ev = 'AUTOMATED_TESTING'} or $ENV{$ev = 'PERL_MM_NONINTERACTIVE'}) {
+- print "1..0 # skip: \$ENV{$ev} is TRUE\n";
+- exit;
+-}
++open(IN, '<', './t/input.txt') or die "Can't open input.txt, $@, $!";
++$term = Term::ReadLine->new('Simple Perl calc', \*IN, \*STDOUT);
+
+-if (!@ARGV) {
+- $term = new Term::ReadLine 'Simple Perl calc';
+-} elsif (@ARGV == 2) {
+- open(IN,"<$ARGV[0]");
+- open(OUT,">$ARGV[1]");
+- $term = new Term::ReadLine 'Simple Perl calc', \*IN, \*OUT;
+-} elsif ($ARGV[0] =~ m|^/dev|) {
+- open(IN,"<$ARGV[0]");
+- open(OUT,">$ARGV[0]");
+- $term = new Term::ReadLine 'Simple Perl calc', \*IN, \*OUT;
+-} else {
+- $term = new Term::ReadLine 'Simple Perl calc', \*STDIN, \*STDOUT;
+- $no_print = $ARGV[0] eq '--no-print';
+-}
+ $prompt = "Enter arithmetic or Perl expression: ";
+ if ((my $l = $ENV{PERL_RL_TEST_PROMPT_MINLEN} || 0) > length $prompt) {
+ $prompt =~ s/(?=:)/ ' ' x ($l - length $prompt)/e;
+@@ -60,7 +43,7 @@ print $OUT <<EOP;
+ this word should be already entered.)
+
+ EOP
+-while ( defined ($_ = $term->readline($prompt, "exit")) ) {
++while ( defined ($_ = $term->readline($prompt)) ) {
+ $res = eval($_);
+ warn $@ if $@;
+ print $OUT $res, "\n" unless $@ or $no_print;
+--
+2.15.1
+
diff --git a/dev-perl/Term-ReadLine-TTYtter/metadata.xml b/dev-perl/Term-ReadLine-TTYtter/metadata.xml
new file mode 100644
index 000000000000..c1dbc5646cff
--- /dev/null
+++ b/dev-perl/Term-ReadLine-TTYtter/metadata.xml
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
+<pkgmetadata>
+ <maintainer type="person">
+ <email>gentoo@nephros.org</email>
+ <name>Peter Gantner</name>
+ </maintainer>
+ <maintainer type="project">
+ <email>perl@gentoo.org</email>
+ <name>Gentoo Perl Project</name>
+ </maintainer>
+ <maintainer type="project">
+ <email>proxy-maint@gentoo.org</email>
+ <name>Proxy Maintainers</name>
+ </maintainer>
+ <upstream>
+ <remote-id type="cpan">Term-ReadLine-TTYtter</remote-id>
+ <remote-id type="cpan-module">Term::ReadLine::TTYtter</remote-id>
+ <remote-id type="cpan-module">Term::ReadLine::TTYtter::AU</remote-id>
+ <remote-id type="cpan-module">Term::ReadLine::TTYtter::Compa</remote-id>
+ <remote-id type="cpan-module">Term::ReadLine::TTYtter::Tie</remote-id>
+ <remote-id type="cpan-module">readline_ttytter</remote-id>
+ </upstream>
+</pkgmetadata>