diff options
author | Ricardo Signes <rjbs@cpan.org> | 2012-03-10 16:21:49 -0500 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-03-10 16:25:11 -0500 |
commit | b3d2d31294c88848b7d3066b6ccab2297ff2e796 (patch) | |
tree | 88e7f3aac982f44f2ff0d45efe9bbeea9d9a8409 | |
parent | f32a663c109b799334cd5191cdae11d99a9afcb3 (diff) | |
download | perl-smoke-me/rjbs/readline-loop.tar.gz |
avoid some long-line errors in podcheck of Term-Readlinesmoke-me/rjbs/readline-loop
-rw-r--r-- | dist/Term-ReadLine/lib/Term/ReadLine.pm | 24 | ||||
-rw-r--r-- | t/porting/known_pod_issues.dat | 3 |
2 files changed, 13 insertions, 14 deletions
diff --git a/dist/Term-ReadLine/lib/Term/ReadLine.pm b/dist/Term-ReadLine/lib/Term/ReadLine.pm index d78ac8219d..f1b1419891 100644 --- a/dist/Term-ReadLine/lib/Term/ReadLine.pm +++ b/dist/Term-ReadLine/lib/Term/ReadLine.pm @@ -129,16 +129,16 @@ input filehandle (often STDIN, but not necessarily) will be passed in. For example, with AnyEvent: - $term->event_loop(sub { - my $data = shift; - $data->[1] = AE::cv(); - $data->[1]->recv(); - }, sub { - my $fh = shift; - my $data = []; - $data->[0] = AE::io($fh, 0, sub { $data->[1]->send() }); - $data; - }); + $term->event_loop(sub { + my $data = shift; + $data->[1] = AE::cv(); + $data->[1]->recv(); + }, sub { + my $fh = shift; + my $data = []; + $data->[0] = AE::io($fh, 0, sub { $data->[1]->send() }); + $data; + }); The second call-back is optional if the call back is registered prior to the call to $term-E<gt>readline. @@ -190,8 +190,8 @@ be C<o=0> or C<ornaments=0>. The head should be as described above, say If the variable is not set, or if the head of space-separated list is empty, the best available package is loaded. - export "PERL_RL=Perl o=0" # Use Perl ReadLine without ornaments - export "PERL_RL= o=0" # Use best available ReadLine without ornaments + export "PERL_RL=Perl o=0" # Use Perl ReadLine sans ornaments + export "PERL_RL= o=0" # Use best available ReadLine sans ornaments (Note that processing of C<PERL_RL> for ornaments is in the discretion of the particular used C<Term::ReadLine::*> package). diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index 4046d3a60b..2270d9f6b9 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -1,4 +1,4 @@ -# This file is the data file for t/porting/podcheck.t. +# This file is the data file for porting/podcheck.t. # There are three types of lines. # Comment lines are white-space only or begin with a '#', like this one. Any # changes you make to the comment lines will be lost when the file is @@ -172,7 +172,6 @@ dist/safe/safe.pm Verbatim line length including indents exceeds 79 by 1 dist/safe/safe.pm empty section in previous paragraph 1 dist/selfloader/lib/selfloader.pm Verbatim line length including indents exceeds 79 by 13 dist/storable/storable.pm Verbatim line length including indents exceeds 79 by 4 -dist/term-readline/lib/term/readline.pm Verbatim line length including indents exceeds 79 by 1 dist/thread-queue/lib/thread/queue.pm Verbatim line length including indents exceeds 79 by 4 dist/threads/lib/threads.pm Verbatim line length including indents exceeds 79 by 3 dist/tie-file/lib/tie/file.pm Verbatim line length including indents exceeds 79 by 3 |