diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 20:57:42 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 20:57:42 +0100 |
commit | 1798c4aeca70ac8d0a243684d6a798fbc65735f8 (patch) | |
tree | e48e19cb6fa03de18e1c63e1a93371b7ebc4eb56 /dev-perl/Term-ReadLine-TTYtter/files | |
parent | d87262dd706fec50cd150aab3e93883b6337466d (diff) |
gentoo resync : 14.07.2018
Diffstat (limited to 'dev-perl/Term-ReadLine-TTYtter/files')
-rw-r--r-- | dev-perl/Term-ReadLine-TTYtter/files/Term-ReadLine-TTYtter-1.4-nointeractive.patch | 78 |
1 files changed, 0 insertions, 78 deletions
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 deleted file mode 100644 index 81050510252b..000000000000 --- a/dev-perl/Term-ReadLine-TTYtter/files/Term-ReadLine-TTYtter-1.4-nointeractive.patch +++ /dev/null @@ -1,78 +0,0 @@ -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 - |